Colocar dos dígitos por columna

[ColdGeorge]

Hola amigos

En A3 están 19 54 12 27 56 60 y con este código se mueven a las columnas siguientes, el problema es que se mueve UN dígito solamente y necesito que se muevan DOS dígitos a cada columna, ¿Cómo lo edito para lograr mi meta?

Sub extraer()
Dim celda As Range

Dim Largo As Integer
Dim i As Integer
Dim Valor As String
Set celda = Range("A3")
Largo = Len(celda)
For i = 1 To Largo
Valor = Mid(celda, i, 1)
ActiveCell.Offset(0, i).Value = Valor
Next i
End Sub

Gracias y saludos, ColdGeorge

 

[AngelJ]

No se necesita un macro para hacer eso. Ha probado el comando Texto en columnas? Dividir texto en columnas

 

[ColdGeorge]

Gracias AngelJ

Así por la buena quien diga nada, gracias.

ColdGeorge

 

[AngelJ]

¡No hay de que! Deje me saber si eso no resolvió su problema.