Не работает функция при переносе на другой ПК - VBA

Function Translit(Txt As String) As String
 
   Application.Volatile
 
    Dim Rus As Variant
    Rus = Array("а", "б", "в", "г", "ґ", "д", "е", "є", "ж", "з", "и", "і", _
    "ї", "й", "к", "л", "м", "н", "о", "п", "р", "с", "т", "у", "ф", "х", _
    "ц", "ч", "ш", "щ", "ь", "ю", "я", "А", "Б", "В", "Г", "Ґ", "Д", "Е", _
    "Є", "Ж", "З", "И", "І", "Ї", "Й", "К", "Л", "М", "Н", "О", _
    "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ь", "Ю", "Я", "'", "-", " ")
 
    Dim Eng As Variant
    Eng = Array("A", "B", "V", "H", "G", "D", "E", "IE", "ZH", "Z", "Y", "I", "I", "I", _
    "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "F", "KH", "TS", "CH", _
    "SH", "SHCH", "", "IU", "IA", "A", "B", "V", "H", "G", "D", _
    "E", "YE", "ZH", "Z", "Y", "I", "I", "I", "K", "L", "M", "N", "O", "P", "R", _
    "S", "T", "U", "F", "KH", "TS", "CH", "SH", "SHCH", "", "YU", "YA", "", "-", " ")
     
    For I = 1 To Len(Txt)
        c = Mid(Txt, I, 1)
     
        flag = 0
        For J = 0 To 68
            If Rus(J) = c Then
                outchr = Eng(J)
                flag = 1
                Exit For
            End If
        Next J
        If flag Then outstr = outstr & outchr Else outstr = outstr & c
    Next I
     
    Translit = outstr

End Function