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

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

A solução correta para esse tópico que ficou meio esquecido seria a função ARRUMAR.

=ARRUMAR(A1)