Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Reset value in a range to zero
Sub ResetValuesToZero2()
    For Each n In Worksheets("Sheet1").Range("WorkArea1")    '   Substitute your information here
        If n.Value <> 0 Then
            n.Value = 0
        End If
    Next n
End Sub