Este fórum está sendo desativado

[ramonmattos]

Bom dia.
Estou tentando remover ou substituir um * em determinadas células porem não estou conseguindo.
Segue abaixo o código:
'Selection.Replace What:=*, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Aguando utilizo ele substitui todos os dados por " ".
Alguém poderia me ajudar?

[osvaldomp]

Experimente:

Código: Selecionar todos

... What:="~*" ...