Bienvenido al foro
pabloamezquita. Cuando quieras preguntar algo, abre un nuevo tema, para no tener en un mismo hilo, cosas diferentes
Prueba esto:
Código:
Sub convirtiendo_fechas()
'Nos situamos en la primera celda del rango
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
'ponemos en la celda el dato corregido
ActiveCell = Left(ActiveCell, 4) & "/" & Mid(ActiveCell, 5, 2) & "/" & Right(ActiveCell, 2)
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Salu2