Guru do Excel e Power BI

Sub Envia_Email_CAnexo()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim ws As Worksheet: Set ws = Sheets("Planilha1")
    Dim enviad As String
    enviad = 0
    'Path do anexo ao email a ser enviado
    Set Rng = ws.Range(Range("F2"), ws.Range("F" & Rows.Count).End(xlUp))
    For Each cell In Rng
        rw = cell.Row
        Path = cell.Value
        If Path <> "" Then
            ' endereco de Email
            ToNome = Cells(rw, 3).Value
                    AttachFile = Path
                    MailBody = Cells(rw, 5).Value
                    Set OutApp = CreateObject("Outlook.Application")
                    Set OutMail = OutApp.CreateItem(o)
                    With OutMail
                        .Subject = Cells(rw, 4).Value
                        .To = ToNome
                        .Body = MailBody
                        .Attachments.Add (AttachFile)
                        .Display
                        '.Send
                        enviad = enviad + 1
                    End With
                    Set OutMail = Nothing
                    Set OutApp = Nothing
                    RecpList = ""
                End If
    Next
    If enviad = 0 Then
    MsgBox "Nenhum email enviado", 64, "AVISO"
    Else
    MsgBox enviad & " enviados da sua lista de emails!", 0, "SUCESSO"
    End If
End Sub