Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Loop through all cells in a range

Sub ResetTest1()     For Each n In Range("A1:A13")     '   Substitute your range here         If n.Value <> 0 Then             n.Value = 0         End If     Next n End Sub