Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Loop through all used range

Sub ResetTest4()     For Each n In ActiveSheet.UsedRange         If n.Value <> 0 Then             n.Value = 0         End If     Next n End Sub