Hi friends,
I'm getting error 1004 in the following code. Please suggest me the correction.

Column 't' contains the birthdates of persons. My data is in range 'b8:ae3000'. My requirement is:

If column 't' contains the today's date (current date) then the entire row range 'b:ae' should color green and as normal black on next day.

Option Explicit

Sub color()
Dim a
Dim i As Variant

                                If Range("T").Value = Date Then
                                    Range("T").Select
                                    a = ActiveCell.Row
                                    Range("B" & a, "AE" & a).Select
                                        With Selection.Interior
                                            .color = vbGreen
                                        End With
                                End If
End Sub
Please suggest me a solution.

Thanking you in anticipation.

Regards,

Mukesh