Case IsDate?

[svendiamond]

How can I use Select Case to determine whether a cell contains a date? For example, I am looping through the following cells:

Cookies
12/2/2015
Apple
Banana
123
Example

Select Case testCell.Value
                Case Is = "Cookies", "Apple", "Banana"
                    MsgBox "this is a food"
                Case IsDate ?
                    MsgBox "this is a date"
End Select

How can I accomplish this?

 

[Norie]

You can use the IsDate function to determine if value is a date or a string that can be interpreted as a date.

However you couldn't use it in your Select Case, it would need to be a separate If statement.

 

[svendiamond]

Thank you for the quick response. I will work around it!