Estoy intentando analizar datos en 2 columnas, para que ya no existan espacios. Encontré este fragmento de código que elimina los espacios iniciales y finales, pero no los espacios contenidos en ellos. ¿Qué cambios debo hacer en este código para que se eliminen todos los espacios?
Sub Remove_Spaces()
Dim rng As Range
Set rng = Range("C:D")
rng.Value = Application.Trim(rng)
End Sub
Gracias