hi
work something like this into your routine....
Sub whatisit()
Dim r As Range
Set r = Range("C10")
If WorksheetFunction.IsNumber(r) Then
MsgBox "is number"
Else
MsgBox "is not number"
End If
End Sub

regards
FSt1

"Steve" wrote:

In my vba routine I want to check the cell contents to see if it's NOT a
numerical value. And I'm considering a blank cell to be non-numeric.

Thanks.