How do I check if a cell is formatted as a date in Excel VB?

[Alex@LM]

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

 

[Gertjan Huiskes]

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...

 

[Alex@LM]

Thank you, Gertjan. This is just what I needed!

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...