Send an Excel with Outlook using VBA and Select an email address from a cell

Try this. I use the code ActiveSheet.Range("B5") to reference a cell in my emails, that way I can change it. Let me know if it works for you.

TempFilePath = Environ$("temp") & "\"
    TempFileName = "Fuel " & " " & Format(Now, "dd-mmm-yy")

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Destwb
        .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum
        On Error Resume Next
        With OutMail
            .To = ActiveSheet.Range("M2")
            .CC = ""
            .BCC = ""
            .Subject = "Fuel"
            .Body = "Dear Sir,"
            .Attachments.Add Destwb.FullName
            'You can add other files also like this
            '.Attachments.Add ("C:\test.txt")
            .Send   'or use .Display
        End With
        On Error GoTo 0
        .Close savechanges:=False
    End With