try
If not Isnumeric(Range("A1").value) Then... 'not a number
or
If Isnumeric(Range("A1").value) Then... 'a number
Ar
--
HiAr
-----------------------------------------------------------------------
HiArt's Profile:
http://www.excelforum.com/member.php...fo&userid=1995
View this thread:
http://www.excelforum.com/showthread.php?threadid=37702