Mega Code Archive

 

Categories / VisualBasic Script / Data Type Functions

 

Is the cell numeric

Sub ResetTest2()     For Each n In Range("A1:A8")        '   Substitute your range here         If IsNumeric(n) Then             n.Value = 0         End If     Next n End Sub