Alex,

This statement checks if the format contains a day in the format for cell
A1:

If InStr(Range("A1").NumberFormat, "d") 0 Then
' Cell is formatted as a date
End If

Greetz, Gertjan

Alex@LM wrote...
I'm using MS Office Excel 2007; trying to write VB function to update a
cell
content with a date; would like to first determine if that cell already
has
been formatted as a date; otherwise do not update