Private Sub Workbook_Open()
Sheets("2010").Activate
For i = Range("B65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1).EntireRow.Interior.ColorIndex = 6 Then
Cells(i, 1).EntireRow.Interior.ColorIndex = xlNone
End If
If Cells(i, 2).Value = Date Then
Cells(i, 1).EntireRow.Interior.ColorIndex = 6
End If
Next i
End Sub