formula quitar acentos en excel

Function fSinTilde(a As Range) As String

 Const strTilde = "áéíóúüàèìòùâêîôûÁÉÍÓÚÜÀÈÌÒÙÂÊÎÔÛ"

 Const strSinTilde = "aeiouuaeiouaeiouAEIOUUAEIOUAEIOU"

 Dim i As Integer

 Dim strCadena As String

 strCadena = a.Value



 For i = 1 To Len(strTilde)

  Do While InStr(strCadena, Mid$(strTilde, i, 1)) > 0

&&&Mid$(strCadena, InStr(strCadena, Mid$(strTilde, i, 1)), 1) = Mid$(strSinTilde, i, 1)

  Loop

 Next i

 fSinTilde = strCadena

End Function