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