Carrito: 
Si deseas eliminar todos los espacios en exceso de las celdas de una determinada hoja de tu libro de Excel, con este código es una buena manera de hacerlo.
Copia y pega este código en un módulo estandar y ejecuta la macro, este eliminará todos los espacios en exceso de tu hoja activa.
Código VBA:
Sub EliminarEspacios()
Dim c As Range
On Error Resume Next
For Each c In ActiveSheet.UsedRange
With c
.Value = WorksheetFunction.Trim(.Value)
End With
Next c
End Sub
