Limpar tabulação

[lcalegari]

Boa tarde.

Estou precisando de uma ajuda. Eu receb um arquivo no excel e preciso limpar certos caracteres, assim como ",",".","-" e etc. Até ai eu consegui fazer numa boa. Mas meu problema veio na hora de limpar tabulação "" que tem um ponnto de interrogação no centro.

Eu fiz algo assim:

Option Explicit

Public Sub LimpaTab()

Dim varColuna As Integer

Dim varLinha As Integer

Dim varIndice As Integer

varColuna = 1

Do While Cells(1, varColuna) <> ""

varColuna = varColuna + 1

Loop

varColuna = varColuna - 1

varLinha = 2

Do While Range("A" & varLinha) <> ""

For varIndice = 1 To varColuna

Cells(varLinha, varIndice).Select

On Error Resume Next

Cells(varLinha, varIndice) = Replace(Replace(Replace(Replace(Replace(Cells(varLinha, varIndice), vbTab, " "), vbCrLf, " "), Chr(10), " "), Chr(13), ""), "", "")

Next varIndice

DoEvents

varLinha = varLinha + 1

Loop

MsgBox "Finalizado", vbInformation

End Sub

Mas não adianta. Vocês podem me ajudar por favor. Obrigado