Macro para quitar todos los espacios en Excel

Código

Sub IB·QuitarTodosLosEspacios()

Dim r As Range

On Error Resume Next

Set r = Application.InputBox("Selecciona el rango de celdas donde deseas quitar los espacios", "INGENIERÍA & BURÓTICA", Type:=8)

On Error GoTo 0

If r Is Nothing Then

Exit Sub

End If

For Each celda In r

celda.Value = Replace(celda.Value, " ", "")

Next celda

MsgBox "Se han eliminado todos los espacios en el rango indicado.", , "INGENIERÍA & BURÓTICA"

End Sub