VBA/Excel/Access/Word/Data Type Functions/IsNumeric
Is the cell numeric
<source lang="vb">
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
</source>
Use IsNumeric to check the input value
<source lang="vb">
Sub EnterSquareRoot3()
Dim Num As Variant Num = InputBox("Enter a value") If Not IsNumeric(Num) Then MsgBox "You must enter a number." Exit Sub End If If Num < 0 Then MsgBox "You must enter a positive number." Exit Sub End If ActiveCell.value = Sqr(Num)
End Sub
</source>