Excel/VBA - Længde på email afsendt direkte fra Excel ark.

Hej eksperter

Jeg har fundet et stykke kode på nettet som jeg bruger til at generere en email med indhold fra en række forskellige celler i arket og som udgangspunkt fungerer det fint.
Jeg har dog det problem at teksten bliver begrænset og den sidste del, over en hvis længde, bliver skåret væk når e-mailen genereres. Nogle gange genererer den desuden e-mailen uden brødtekst.

Er der en måde at komme ud over dette problem på uden at skulle skifte hele koden ud?

Sub SendEMail()
    Dim Email As String
    Dim Msg As String
    Dim URL As String
    Dim Subj As String
       
'      Set Email adress
        Email = Cells(1, 5)
       
'      Message subject
        Subj = Cells(3, 5) & " " & Cells(4, 5)

'      Compose the message
        Msg = ""
        Msg = Msg & Cells(4, 19) & vbCrLf & vbCrLf & Cells(5, 19) & vbCrLf & Cells(6, 19) & vbCrLf & _
        Cells(7, 19) & vbCrLf & Cells(8, 19) & vbCrLf & Cells(9, 19) & vbCrLf & vbCrLf & Cells(10, 19) & vbCrLf & vbCrLf & Cells(11, 19)
       
'      Replace spaces with %20 (hex)
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
               
'      Replace carriage returns with %0D%0A (hex)
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

'      Create the URL
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

'      Execute the URL (start the email client)
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

End Sub