Функция транслит  - полностью проблему не решит, но жить станет легче  
 
Function Translit(strRus As String) As String  
   Dim strDictRus As String  
   Dim strDictEng As String  
   Dim i As Long, j As Long  
   Dim strSymbRus As String  
   Dim strSymbEng As String  
   Dim strEng As String  
 
   strDictRus = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчш­щъыьэюя"  
   strDictEng = "A B V G D E E J Z I Y K L M N O P R S T U F H TSCHSHSH' I ' E YUYA" & _  
                "a b v g d e e j z i y k l m n o p r s t u f h tschshsh' i ' e yuya"  
 
   For i = 1 To Len(strRus)  
       strSymbRus = Mid(strRus, i, 1)  
       j = InStr(1, strDictRus, strSymbRus, vbBinaryCompare)  
       If j = 0 Then  
           strSymbEng = strSymbRus  
       Else  
           strSymbEng = Trim(Mid(strDictEng, j * 2 - 1, 2))  
       End If  
       strEng = strEng & strSymbEng  
   Next i  
   Translit = strEng  
 
End Function

в файле некий симбиоз моей формулы и УДФ транслит, представленной Konstantin_.  
Получилось вроде неплохо, без всяких доп справочников.