Función ESPACIOS

La función ESPACIOS quita los espacios delante y detrás de las cadenas incluso si dentro de la cadena se repiten espacios los reduce a uno.----> correcto
Pero lo he querido hacer mediante macro con la función TRIM y no hace la última parte, es decir, no reduce a uno los espacios de dentro de la cadena, si es que se repiten.
¿tiene solución?
Muchas gracias Expertos.