Macro eliminar espacios intermedios en excel

macro eliminar espacios intermedios, herramienta útil para manejo de bases de datos

[ivanvera]

Buenas noches. Me arroja el siguiente error tu macro, ¿cómo lo puedo corregir?
"Error de compilacion": No se ha definido una variable.

[Macroexcelaton]

Sub EliminarEspaciosIntermedios()

'Pedimos al usuario que elija un rango.
Set Rango = un rango", Type:=8)

For Each celda In Rango
celda.Value =
Next
End Sub