SuperJas,

Try the isdate function

From the immediate window:

?isdate(range("B10"))

Sub TestMe()
If isdate(range("B10") then
msgbox "It's a date"
else
msgbox "Not a date"
End If
End Sub

John




"SuperJas" wrote in message
...
Hi,

Is there a simple piece of code that can identify whether a cell is
formatted as a date? I'd like to identify such cells in my worksheet and
tell the macro to skip over these when processing.

Many thanks in advance,

SuperJas.