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

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

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

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

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

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

"Gertjan Huiskes" wrote:

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