Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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