help with WorkSheet.Function.CountA someone pleeaasssse

[EDUB7]

Set OutLookApp = CreateObject("OutLook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
With OutLookMailItem
For iCounter = 6 To WorksheetFunction.CountA(Columns(4))
MailDest = ""
If MailDest = "" And Cells(iCounter, 4).Offset(0, -1) = "Send Reminder" Then
MailDest = Cells(iCounter, 4).Value
ElseIf MailDest <> "" And Cells(iCounter, 4).Offset(0, -1) = "Send Reminder" Then
MailDest = MailDest & ";" & Cells(iCounter, 4)
End If

Next iCounter
.To = MailDest
.BCC = "xyz@gmail.com"
.Subject = "Field Start-Up Reminder"
.Body = "Reminder: Start-Up for Project is now required. Please ignore if email if request has already been made."
.Send

End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing

I can't the worksheet.Function.CountA (Columns(4)) to work properly. It will run through the entire code without picking up the email that is listed in column 4. I must be missing some Monday detail. Can someone please help me with this???

-Thanks

 

[MARK858]

If you are trying to get it to loop until the last used cell in column D try...

For iCounter = 6 To Range("D" & Rows.Count).End(xlUp).Row

I haven't tried the rest of your code but I would think that

MailDest = ""

should be before the loop starts.

 

[michaelsmith559]

Have you tried:

For iCounter = 6 To Application.WorksheetFunction.CountA(Columns(4))
or
For iCounter = 6 To Application.WorksheetFunction.CountA(Range("D:D"))

 

[EDUB7]

I actually went with both of your comments. However, my goal is for the email to not resend to email addresses already notified. So I'm wondering if a loop isn't the right way to go at all?

 

[EDUB7]

I also need move past cells that don't have the "send reminder" in the field.