Does this help?

If IsNumeric(Range("A1")) Then
MsgBox "yes"
End I

--
CBrin

-----------------------------------------------------------------------
CBrine's Profile: http://www.excelforum.com/member.php...fo&userid=1470
View this thread: http://www.excelforum.com/showthread.php?threadid=26330