Checking for a Date in a Cell

[KDF]

I am using the following code to determine if a cell in a range contains a date, and if so to act by adding 100 years to the date:

For Each c In Range("A88:A130")
If IsDate(c.Value) And DatePart("yyyy", c.Value) < "2000" Then c.Value = DateAdd("yyyy", 100, c.Value)
Next c

It seems to work fine if the cells have a date or are empty, but it crashes if any of the cells contain anything other than a date, such as spaces or text. How can I fix this? Any help will be greatly appreciated. Thanks.

[nigelbloomy]

You could add a line to check if c is numeric.

If isNumeric(c) then
do your code
Else: End if

[Norie]

Check for a date, and then do the rest of the checking etc. only if there is a date.

For Each c In Range("A88:A130")
    If IsDate(c.Value) Then
        If Year(c.Value) < 2000 Then 
            c.Value = DateAdd("yyyy", 100, c.Value)
        End If
    End If
Next c

[nigelbloomy]

I didn't know there was an IsDate function. Thank you Norie.