Quitar espacios en blanco

hola, 'anonimo/a' !

Existe algun codigo (macro) que haga lo mismo:
Eliminar los espacios del texto, excepto el espacio normal que se deja entre palabras.
Use ESPACIOS en texto procedente de otras aplicaciones que pueda contener un separacion irregular...
Quisiera que cuando alguien ingresa datos con espacios ya sea al inicio o final del texto automaticamente me lo corrigiera
en esta caso se ingresarian datos en las columnas A,B,C.

mencionas dos posibilidades de 'obtener' los datos-texto en las columnas A, B y C...
- como 'procedencia' de otras aplicaciones [y/o]...
- como -probable- entrada 'directa' por parte del usuario -?-

1) si es por entrada directa del usuario... prueba aplicando reglas de validacion 'pesonalizadas' [p.e.]
a) selecciona las columnas completas [A:C]
b) ve a [menu] datos / validacion... / [permitir]: -> personalizada
c) utiliza la siguiente formula: -> ¡=espacios(a1)
d) selecciona en el apartado de mensaje de error -> un 'estilo' de LIMITE
e) opcionalmente, puedes utilizar los campos para mensajes [entrada y error] para informar al usuario 'como' debe ingresar

2) si los datos ya los tienes 'recibidos'... sera necesario utilizar macros [si lo prefieres... ejecutadas 'a discrecion/voluntad'] -?-
a) si solo te interesan los espacios inicial y final... algo +/- como: -> ActiveCell = Trim(ActiveCell)
b) si necesitas eliminar los espacios intermedios extras... -> ActiveCell = Application.Trim(ActiveCell)

3) considera que al usar codigo, pierdes el 'beneficio' del des-hacer, undo, ctrl+Z :-((
y las posibles 'variantes' de formas en un procedimiento/macro... pudieran depender del numero de celdas 'corregibles' -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.