'Remove qualquer acento da palavraSub Main() Dim cell As Range 'Itera pela range de dados For Each cell In Selection 'A funo vai removendo cada acento de cada palavra cell.Value = TiraAscento(cell.Value) Next cell End Sub'Remove o ascento das palavrasPrivate Function TiraAscento(ByVal palavra As String) As String Dim slimpo As String 'LETRAS MINUSCULAS'------------------------------------ 'Letra a minuscula slimpo = Replace(palavra, "", "a") slimpo = Replace(slimpo, "", "a") slimpo = Replace(slimpo, "", "a") slimpo = Replace(slimpo, "", "a") slimpo = Replace(slimpo, "", "a") 'Letra e minuscula slimpo = Replace(slimpo, "", "e") slimpo = Replace(slimpo, "", "e") slimpo = Replace(slimpo, "", "e") slimpo = Replace(slimpo, "", "e") 'Letra i minuscula slimpo = Replace(slimpo, "", "i") slimpo = Replace(slimpo, "", "i") slimpo = Replace(slimpo, "", "i") slimpo = Replace(slimpo, "", "i") 'Letra o minuscula slimpo = Replace(slimpo, "", "o") slimpo = Replace(slimpo, "", "o") slimpo = Replace(slimpo, "", "o") slimpo = Replace(slimpo, "", "o") slimpo = Replace(slimpo, "", "o") slimpo = Replace(slimpo, "", "o") 'Letra u minuscula slimpo = Replace(slimpo, "", "u") slimpo = Replace(slimpo, "", "u") slimpo = Replace(slimpo, "", "u") slimpo = Replace(slimpo, "", "u") 'Letra minuscula slimpo = Replace(slimpo, "", "c")'LETRAS MAISCULAS'------------------------------------ 'Letra A maiscula slimpo = Replace(slimpo, "", "A") slimpo = Replace(slimpo, "", "A") slimpo = Replace(slimpo, "", "A") slimpo = Replace(slimpo, "", "A") slimpo = Replace(slimpo, "", "A") 'Letra E maiscula slimpo = Replace(slimpo, "", "E") slimpo = Replace(slimpo, "", "E") slimpo = Replace(slimpo, "", "E") slimpo = Replace(slimpo, "", "E") 'Letra I maiscula slimpo = Replace(slimpo, "", "I") slimpo = Replace(slimpo, "", "I") slimpo = Replace(slimpo, "", "I") slimpo = Replace(slimpo, "", "I") 'Letra O maiscula slimpo = Replace(slimpo, "", "O") slimpo = Replace(slimpo, "", "O") slimpo = Replace(slimpo, "", "O") slimpo = Replace(slimpo, "", "O") slimpo = Replace(slimpo, "", "O") slimpo = Replace(slimpo, "", "O") 'Letra U maiscula slimpo = Replace(slimpo, "", "U") slimpo = Replace(slimpo, "", "U") slimpo = Replace(slimpo, "", "U") slimpo = Replace(slimpo, "", "U") 'Letra maiscula slimpo = Replace(slimpo, "", "C") TiraAscento = slimpoEnd Function