JoseA, olha achei muito interessante o uso do InputBox, legal mesmo.
Mas no teste que fiz ele literalmente eliminou todos os espaços em branco e grudou toda a frase.
Oque era " antonio carlos p. lacerda "
oque deveria ser "antonio carlos p. lacerda"
virou "antoniocarlosp.lacerda"
Obrigado pela ajuda
acp.lacerda
Experimente..
Sub Clear()
Dim rLocal As Range
'Atribuição das variáveis
Set rLocal = Application.InputBox(Prompt:="Selecione as células que deseja ajustar...", Type:=8)
rLocal.Replace What:=" ", Replacement:=""
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 06/01/2012 6:52 am