Faaala Fernando, blz cara?

Precisei a um tempo disso, acabei resolvendo assim:

'Remove acentos e caracteres especiais e deixa o texto em caixa alta
Public Function ArrumarTexto(ByVal Caract As Variant) As Variant
'Declaracao de Variaveis
Dim i       As Long
Dim p       As Variant
Dim codiA   As String
Dim codiB   As String

'Caracteres impeditivos
codiA = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ-'´)([]/*-+.,!@#$%¨&§¹²³£¢¬"
'Caracteres substitutivos
codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN                            "
    
    'Inicia o loop em busca dos caracteres impeditivos
    For i = 1 To Len(Caract)
        p = InStr(codiA, Mid(Caract, i, 1))
        'Verifica a existencia dos caracteres no texto
        If p > 0 Then
            'Realiza a substituicao
            Mid(Caract, i, 1) = Mid(codiB, p, 1)
        End If
    Next

'Retorno do texto
ArrumarTexto = UCase(Application.WorksheetFunction.Trim(Caract))
     
End Function

E esse para remover número:

'Remove acentos e caracteres especiais e deixa o texto em caixa alta
Public Function RemoverNumero(ByVal Caract As Variant) As Variant
'Declaracao de Variaveis
Dim i           As Long

    For i = Len(Caract) To 1 Step -1
        If IsNumeric(Mid(Caract, i, 1)) Then
            Caract = Replace(Caract, Mid(Caract, i, 1), "")
        End If
    Next

'Retorno do texto
RemoverNumero = UCase(Application.WorksheetFunction.Trim(Caract))
    
End Function

Fiz função pois precisava em textbox distintos e necessidades diferentes... então segue mais uma contribuição e opção.

Acredito não ser necessário habilitar nada...

Qualquer coisa da o grito.
Abraço

Bernardo, boa tarde.

Se me permite uma pequena modificação para atender uma pequena necessidade que tenho onde seu código é de grande ajuda, preciso retirar os caracteres 32 e 160 apenas, que "sujam" números.
Eu preciso selecionar um intervalo de números e arrumar, retirando esses caracteres.

Por favor, poderia indicar se estou no caminho certo?

Sub LimpaDados()
'
' LimpaDados Macro
' Limpa Dados com caracteres 32 e 160

Dim cell As Object

    For Each cell In Selection
    ArrumarTexto (cell)
    Next cell

End Sub

'Remove acentos e caracteres especiais e deixa o texto em caixa alta
Public Function ArrumarTexto(ByVal Caract As Variant) As Variant
'Declaracao de Variaveis
Dim i       As Long
Dim p       As Variant
Dim codiA   As String
Dim codiB   As String

'Caracteres impeditivos (32 e 160)
codiA = "  " 

'Caracteres substitutivos (nenhum)
codiB = ""
    
    'Inicia o loop em busca dos caracteres impeditivos
    For i = 1 To Len(Caract)
        p = InStr(codiA, Mid(Caract, i, 1))
        'Verifica a existencia dos caracteres no texto
        If p > 0 Then
            'Realiza a substituicao
            Mid(Caract, i, 1) = Mid(codiB, p, 1)
        End If
    Next

'Retorno do texto
ArrumarTexto = Application.WorksheetFunction.Trim(Caract)
     
End Function

Bom dia jonascruz,

Me desculpe a demora.

Vê se ajuda:

Option Explicit

' LimpaDados Macro
Sub LimpaDados()
'Declaracao de Variaveis
Dim cell As Object

    For Each cell In Selection
        RemoveChr (cell)
    Next cell

End Sub

'Remove os caracteres 32 e 160
Public Function RemoveChr(ByVal Caract As Variant) As Variant

Dim i           As Long

    'Inicia o loop em busca dos caracteres impeditivos
    For i = Len(Caract) To 1 Step -1
        'Verifica a existencia dos caracteres no texto
        If InStr(1, Chr(32) & Chr(160), Mid(Caract, i, 1)) > 0 Then
            'Realiza a remoção
            Caract = Replace(Caract, Mid(Caract, i, 1), "")
        End If
    Next

    'Retorno da célula
    RemoveChr = Application.WorksheetFunction.Trim(Caract)
    
End Function

Qualquer coisa da o grito.
Abraço

Bernardo, muitíssimo obrigado por sua ajuda. Funcionou perfeitamente para a minha necessidade.

Que top!
Só no planilhando encontro esse tipo de coisa!
Era exatamente o que estava procurando (em especial a solução do Bernardo, pois também preciso usar como fórmula...)!!!
Vlw galera!!!

Seguindo a linha de contribuição p/ substituição de caracteres indesejados...

Para o código abaixo eu montei uma tabela chamada de 'TCorreção' com duas colunas onde eu relacionei um conjunto de caracteres a serem substituídos por uma letra acentuada por conta de importação de texto sem a codificação correta.
O texto importado varia muito e não consegui fazer com q ele mantivesse os caracteres acentuados corretamente todas as vezes q eu importava.

Sub LimparCaracteresEspeciais()

' Declaracao de Variaveis
Dim Linha As Range
Dim TxtErrado As String
Dim TxtCorreto As String
' Rotina de tratamento de erros
On Error GoTo TrataErro
Application.ScreenUpdating = False ' Interrompe atualização da tela temporariamente

' Loop através de cada linha na tabela.
For Each Linha In [TCorreção].Rows
    ' Associa as variáveis com cada célula na linha atual.
        TxtErrado = Linha.Columns(1).Value
        TxtCorreto = Linha.Columns(2).Value
       ' MsgBox TxtErrado & " substituído por " & TxtCorreto
        Columns("A:S").Select ' Demarca as colunas em que será feita a varredura
        Selection.Replace What:=TxtErrado, Replacement:=TxtCorreto, LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
            ReplaceFormat:=False
Next Linha

Application.ScreenUpdating = True ' Retorna com atualização da tela

TrataErro: ' Tratamento de erro.
    If Err <> 0 Then
        Dim Msg As String
        Msg = "Erro nº " & Str(Err.Number) & Chr(13) & Err.Description _
            & Chr(13) & "Certifique-se de que há uma tabela na planilha."
            MsgBox Msg, , "Error"
    End If

End Sub

DJunqueira,

Tem como disponibilizar um modelo de como fica as informações na planilha?

Att.
Bernardo maia

Claro, segue a planilha na qual eu usei a macro.

DJunqueira, uma vez precisei disso no trabalho e tive que fazer trocentos Crtl+U kk
.
Só um detalhe, tentei aumentar a matriz do TCorreção, mas tá bloqueado!!!

Testei aqui e não tive problema algum, qual sua versão do Excel?