Mail a traves de OutLook con Excel

Hola:
Quisiera saber si alguien me puede explicar como hago para que el mail que tengo en la celda H3 aparezca automáticamente en PARA: cuando se abre el OutLook. Desde ya muchas gracias por su desinteresada ayuda. En la sentencia copio un resultado determinado en una hoja nueva, le pongo un nombre determinado, lo guardo y lo quiero mandar por mail adjunto a la dirección de H3
Sub GuardarInformeYenviarMail()
'
' GuardarInformeYenviarMail Macro
'
' Acceso directo: CTRL+b
'
Dim Nombre_Archivo As String
Dim Mail_Destinatario As String
Nombre_Archivo = Range("F3").Value
Mail_Destinatario = Range("H3").Value
    Application.Goto Reference:="EnvioBuscaPlanillas"
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    With Selection.Font
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
    End With
    Columns("E:E").ColumnWidth = 21.14
    Columns("F:F").ColumnWidth = 5.29
    Range("A1").Select
    ChDir "C:\Users\leticia\Desktop\CosasDeMusicos\Enviados"
    Path = "C:\Users\leticia\Desktop\CosasDeMusicos\Enviados\" + Nombre_Archivo + ".xls"
ActiveWorkbook.SaveAs (Path)
 Application.Dialogs(xlDialogSendMail).Show
    ActiveWindow.Close
    Range("J10").Select
End Sub