Sub Test()
DoitRight Range("A1"), 5
DoSplit "ABCDEFGHIJKLMNOPQRSTUFWXY12345678", Range("A2"), 5
End Sub
Private Sub DoSplit(Txt As String, Start As Range, Stp As Integer)
Dim x As Integer, z As Long
For x = 1 To Len(Txt) Step Stp
Start.Offset(, z).Value = Mid(Txt, x, Stp)
z = z + 1
Next x
End Sub
Private Sub DoitRight(Start As Range, Stp As Integer)
Dim x As Integer, z As Long
For x = 1 To Len(Start.Value) Step Stp
z = z + 1
Start.Offset(, z).Value = Mid(Start.Value, x, Stp)
Next x
End Sub