WELCOME TO THE BOARD!
Here is a UDF that will do the trick:
Function IsDate(CellDate As Date) As Boolean
If CellDate >= 1 And CellDate <= #12/31/2199# Then
' 1 is equal to January 1, 1900
IsDate = True
IsDate = False
[ This Message was edited by: phantom1975 on 2003-02-17 22:21 ]