Hi again,
I've attached the code I've generated to send emails, the only issue I seem to be having now is extracting the required data from that row, I'm not to sure how the arrComplaint works. I've tried using the celloffset(0,0).Value but it doesn't seem to work

Any help is apperciated!
and once again thanks wallyeye for the help
Public Sub SendEMail(ByVal rngStart As Excel.Range)

    Dim arrComplaint            As Variant

    arrComplaint = rngStart.Resize(1, 20).Value


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = "Complaint ID" & "arrComplaint"
        .Body = "Complaint ID " & "arrComplaint" & "Has has no progress for 5 days"
        .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub