Substituir Apóstrofo

[kassio07]

Pessoal to com o seguinte problema, eu tenho uma planilha com várias cidades e tenho que exportar esses dados para o Banco Access até ai sem problema, o que ocorre é que algumas cidades possuem o apóstrofo ex: Santa Barbara D'Oeste, o que gera um erro na inserção então gostaria de saber se alguém conhece alguma macro que eu possa utilizar para substituir esses apóstrofos por vazio e não occora mais nenhum problema ?

[ubi_rj]

Tenta isso:

Sub teste()
texto = Replace(Selection.Value, "'", "")
MsgBox texto
End Sub

Seleciona alguma célula com apóstrofe e roda a macro. O valor da cidade, sem apóstrofe, vai ser armazenado em uma variável e exibido em um MessageBox.

Abraço!

[benzadeus]

Selecione a coluna que possui o nome das cidades e pressione Ctrl+U para mostrar a janela de substituição.

Em Localizar, escreva ' (ou seja, apóstrofo)

Em Substituir por, deixe em branco.

Clique então em Substituir tudo.

[kassio07]

Tenta isso:

Sub teste()
texto = Replace(Selection.Value, "'", "")
MsgBox texto
End Sub

Seleciona alguma célula com apóstrofe e roda a macro. O valor da cidade, sem apóstrofe, vai ser armazenado em uma variável e exibido em um MessageBox.

Abraço!

Vlw pela ajuda funcionou direitinho...