Otra fórmula personalizada (UDF) que se une a la saga, con esta fórmula podrán eliminar acentos de cadenas de texto.
Si se encuentran con caracteres que deseen eliminar distintos a los contenidos en el código solamente bastará que los agreguen en las dos variables.

Option Explicit

Function SinAcentos(Celda)
Dim temp, strA$, strB$, i&, p&
strA = "áàäâãåçéèêëíìîïóòôöõðšúùûüýÿž" & _
       "ÁÀÄÂÃÅÇÉÈÊËÍÌÎÏÓÒÔÖÕЊÚÙÛÜÝŸŽ "
strB = "aaaaaaceeeeiiiioooooosuuuuyyz" & _
       "AAAAAACEEEEIIIIOOOOOOSUUUUYYZ"
 temp = Celda
   For i = 1 To Len(temp)
    p = InStr(strA, Mid(temp, i, 1))
    If p > 0 Then Mid(temp, i, 1) = Mid(strB, p, 1)
   Next
   SinAcentos = temp
End Function