vector
 

Hola que tal.
Necesito saber como hacer para que al ingresar un numero de diez dígitos me lo separe y coloque un digito en cada celda en vba de excel

La verdad es que le faltan detalles a tu pregunta, pero en todo caso, en esta macro sale un inputbox que te pide la palabra, y luego te envia letra por letra de A1 hasta Ax, donde x es la fila que toque dependiendo de la cantidad de letras.

Abraham

Sub extraer()

Dim bucle As Integer
Dim variable As String, cambiar As String, resultado As String

variable = InputBox("INGRESE PALABRA")
contador = Len(variable)
For bucle = 1 To contador
resultado = Mid(variable, bucle, 1)
cambiar = bucle
Range("a" + cambiar).Value = resultado
Next bucle

End Sub