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

  • Thread starter Thread starter Alex@LM
  • Start date Start date
A

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
 
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...
 
Thank you, Gertjan. This is just what I needed!

Gertjan Huiskes said:
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...
Click to expand...
 
Back
Top