Excel - Akzente aus Text entfernen

Function EntferneAkzente(ByVal Text As String) As String
    Dim Original As String: Original = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöùúûüýÿ"  
    Dim Ersatz As String: Ersatz =  "AAAAAACEEEEIIIINOOOOOUUUUYaaaaaaceeeeiiiinooooouuuuyy"  
    Dim i As Long

    For i = 1 To Len(Original)
        Text = Replace(Text, Mid(Original, i, 1), Mid(Ersatz, i, 1))
    Next i

    EntferneAkzente = Text
End Function

Sub AkzenteEntfernenImMarkiertenBereich()
    Dim Zelle As Range
    For Each Zelle In Selection
        If Not IsEmpty(Zelle.Value) Then
            Zelle.Value = EntferneAkzente(Zelle.Value)
        End If
    Next Zelle
    MsgBox "Akzente wurden entfernt!", vbInformation  
End Sub