How do you test for type of cell content?

[ChgsAllAround]

I need to test the contents of a user-entered cell for TYPE before running a macro. The cell is formatted for dates, but doesn't stop the user from entering text. The macro I use converts the date to a string and causes a type mismatch if something like "ddd" is in the cell. I've spent quite a bit of time looking for previous questions on this issue and haven't had any success--any ideas? Thanks!

 

[VoG]

Try something like

If IsDate(Range("A1").Value) Then

 

[ChgsAllAround]

Thanks! That worked perfectly.

 

[nbrcrunch]

Though I know it is more than you asked for, you might also consider using Validation on the cell so that only dates are permitted in the first place.