Suprimir espacios intermedios en una cadena de texto

[Antonio]

Hola a todos. Tengo una serie de datos (4,872) que contienen cadenas de texto a los cuales hay que suprimir espacios intermedios. He intentado con las funciones Suprimir, Reemplazar y no lo he logrado. Igualmente. con la opción Buscar y reemplazar sin éxito. Las cadenas de texto tienen esta estructura:

00: 01: 04,600  -->  00: 01: 09,599  El espacio que hay que suprimir es el que se encuentra después de los dos puntos (:), es decir, que debe quedar así; 00:01:04,600  -->  00:01:09,599

Aspiro a que alguien me ayude con una macro que me permita hacer esta tarea y, para el efecto, adjunto un archivo con una muestra. Muchísimas gracias.

FORMATO.xlsx

[Antoni]

Selecciona el rango a convertir y ejecuta esta macro:

Sub Reemplazar()
  For Each celda In Selection
     celda.Value = Replace(celda, ": ", ":")
  Next
End Sub

 

[Antonio]

Muchísimas gracias, Antoni, por tu valiosa ayuda. Funcionó perfecto. Podemos dar por solucionado el tema.