Macro won't work in 2007

Hello,

I created a macro awhile ago to perform a pretty simple function in Excel 2003. The macro just goes down two specified columns and if a date is entered it is checked against whatever today's date is. If today's date is past the entered date the cell turns red, otherwise the cell is green. The macro worked flawlessly in Excel 2003. However now in Excel 2007 whenever the macro run a Runtime Error 13 occurs. Here is the code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

For Each c In Range("E3:E567,H3:H567")
    If c.Value <> "" Then
        If CDate(c.Value) < Now Then
            c.Interior.Color = vbRed
        Else
            c.Interior.Color = vbGreen
        End If
    End If
Next c
End Sub

The error occurs at the

If c.Value <> "" Then

line and is noted with Error = 2015

Thanks in advance for any advice!

Your post does not comply with Forum Rule #3 regarding the use of code tags for VBA code. Please amend your post to add the code tags, after which solutions will be suggested.

Rule #3

Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # button at the top of the post window. If you are editing an existing post, press Go Advanced to see the # button. For more information about these and other tags, click here.

Further to the prior post and in response to your earlier assertion of debug at:

If c.Value <> "" Then

the above would occur were the value an Error

To correct both issues you could perhaps change the above to:

If IsDate(c.Value) Then