Check data in column

Hi fairyme,

Try the code below. It will place 'Yes' in column E when the date in column 3 = today's date;

Sub CheckDate()

Dim lrow As Integer, i As Integer

lrow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To lrow
    If Cells(i, 3) = Date Then
        Cells(i, 5) = "Yes"
       Else: Cells(i, 5) = "No"
    End If
Next i

End Sub