I needed code to be inserted in a larger macro. This is the one I eventually adopted (though not complete with regard characters). Thanks again for your help!


' Convert to Unicode Normalization Form D (decomposed form)
Normalized = StrConv(Name, vbUnicode)

Dim Result As String
Result = ""

For i = 1 To Len(Name)
CharCode = AscW(Mid(Name, i, 1))
Select Case CharCode
' Common diacritic replacements
Case 192 To 197: Result = Result & "A"
Case 224 To 229: Result = Result & "a"
Case 200 To 203: Result = Result & "E"
Case 232 To 235: Result = Result & "e"
Case 204 To 207: Result = Result & "I"
Case 236 To 239: Result = Result & "i"
Case 210 To 214, 216: Result = Result & "O"
Case 242 To 246, 248: Result = Result & "o"
Case 217 To 220: Result = Result & "U"
Case 249 To 252: Result = Result & "u"
Case 199: Result = Result & "C"
Case 231: Result = Result & "c"
Case 209: Result = Result & "N"
Case 241: Result = Result & "n"
Case 221: Result = Result & "Y"
Case 253, 255: Result = Result & "y"
Case Else
Result = Result & ChrW(CharCode)
End Select
Next i
Name = Result
' MsgBox Name