Invio mail con dati filtrati

Sub InviaMail()
    Dim ur As Long
    Dim rng As Range
    Dim cel As Range
    Dim OutlookApp As Outlook.Application
    Dim MItem As Object
    Dim Recipient As String, Subj As String
    Dim Msg As String, Fname As String
    Dim dataordine As String
    ur = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("a2:a" & ur)
    For Each cel In rng
    If cel.Value = "Da inviare" Then
    Set OutlookApp = New Outlook.Application
    Set MItem = OutlookApp.CreateItem(olMailItem)
    Recipient = cel.Offset(0, 3).Value
    Subj = "Tuo oggetto"
    Msg = "Egr. Sig. " & cel.Offset(0, 2).Value
    With MItem
      .To = Recipient
      .Subject = Subj
      .Body = Msg
      .Display
      '.Send
    End With
    End If
    cel.Value = "Inviato"
    Next cel
    Set OutlookApp = Nothing
End Sub

Recipient = cel.Offset(0, 3).Value

Recipient = "prova@prova.com"