Problemer med & tegn i en Excel - VBA kode

Jeg arbejder med en VBA kode, som jeg bruger til at skrive og sende emails automatisk. Dette fungerer fint indtil jeg får data i excel(2007), hvor cellerne, som koden referer til indeholder et eller flere &-tegn.

Det kan fx være navnet på den virksomhed jeg skal sende emailen til. Her bliver min tekststreng, som regel helt tom eller alternativt sender den slet ikke emailen. Derfor er jeg nødt til at gennemsøge mine data for &-tegn hver gang jeg skal bruge koden.

Jeg vil være meget taknemmelig for hjælp til at løse problemet.

VBA koden ser sådan ud i en lidt kortere version :

For r = 4 To 10

        'Get email
        Email = Cells(r, 108)
       
        'Message subject
        Subj = "Hej XXX" & Cells(r, 11) & " cvr nr: " & Cells(r, 10)

        'Compose message
        Msg = ""
        Msg = Msg & "Hej XXX"
        Msg = Msg & cells(r,26)

        '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

        'Wait two seconds before sending keystrokes
        Application.Wait (Now + TimeValue("0:00:01"))
        Application.SendKeys "%s"
Next r