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