VBA odeslání mailu z excelu

Ahoj,
pro odeslání mailu z outlooku požívám kód viz níže.Pro některé počítače z naší skupiny to funguje bezvadně, pro jiným to hází chybu Subscript out of range (Error 9). Nevíte,čím by to mohlo být?Už si nevím rady. Děkuju

Sub ExcelOutlookPriloha()

    'Tools / References / Microsoft Outlook x.x Object Library

ActiveWorkbook.Save

Jmeno = Sheets("Formulář").Range("C6").Text

    Dim OutApp As Outlook.Application
    Dim OutMail As Outlook.MailItem
   
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)

    With OutMail
   
        'adresát
        .To = "xxx@email.cz"
       
        'kopie pro
        .CC = "xxx@email.cz"
       
        'předmět zprávy
        .Subject = "Kontrola " & Jmeno
       
        'text zprávy
        .Body = "Kotrola"
       
        'aktivní (uložený) sešit jako příloha
        .Attachments.Add ActiveWorkbook.FullName
       
        'zobrazení okna se zprávou (není nutné)
        .Display
       
        'odeslání zprávy
        '.Send
       
    End With