Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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