Code Display MoreOption Explicit Sub IsDelivered() Dim c As Range Dim j As Integer Dim Source As Worksheet Dim LDate As String LDate = Date Dim myString As String ' Change worksheet designations as needed Set Source = ActiveSheet myString = LDate For Each c In Source.Range("P1:P1000") ' Do 1000 rows If c = myString Then c.Offset(0, 6).Value = "Delivered" j = j + 1 End If Next c End Sub
Logit,
You are genious, right hit to the point but still giving me the below debugger for some reason
See attached