E-mail pelo excel via outlook

Boa tarde! Pessoal...

tenho este código para passar e-mails pelo excel e estar funcionando bem, porem preciso que mude a cada e-mail enviado o remetente, já tentei colocar o from mas não certo. alguem pode me ajudar...
segue o codigo abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
   
   Dim OutApp As Object
   Dim OutMail As Object
   Dim texto As String
 
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   
         
   linha = ActiveCell.Row - 1
   If Target.Address = "$N$" & linha Then

       If Plan3.Cells(linha, 14) = "OK" Then
     
          texto = "Cliente: " & Plan3.Cells(linha, 3) & " - " & Plan3.Cells(linha, 4) & vbCrLf & _
                   "Fonte: " & Plan3.Cells(linha, 5) & _
                   "               Pagina: " & Plan3.Cells(linha, 6) & "           Data do Jornal: " & Plan3.Cells(linha, 7) & vbCrLf & _
                   "Titulo: " & Plan3.Cells(linha, & vbCrLf & _
                   "Detalhe: " & Plan3.Cells(linha, 9) & vbCrLf & _
                   "Observação: " & Plan3.Cells(linha, 10) & vbCrLf & _
                   "" & vbCrLf & Plan3.Cells(linha, 11) & vbCrLf & "" _

       End If

       With OutMail
                   
           .To = Plan3.Cells(linha, 13)
           .CC = ""
           .BCC = ""
           '.From = Plan3.Cells(linha, 18)' ==> isso não funciona
           .Subject = "Processo: " & Plan3.Cells(linha, 12)
           .Body = texto
           .Display  'Utilize Send para enviar o email sem abrir o Outlook - (Display)'
       End With
       On Error GoTo 0

       Set OutMail = Nothing
       Set OutApp = Nothing
     
   End If

End Sub

Amigo Jorge, seja benvindo.

Observe que aqui é um fórum exclusive para Access.
Terás mais chances de ter sua resposta em um fórum Excel, e tem vários.

Um que eu recomendo é: http://www.planilhando.com.br/forum/

Forte abraço!