Using VBA to split individual characters across cells

[Guest]

I have a form that collects the user's bank account details in 2 textboxes
(one for the account name, the other for their account number). The
preprinted forms that we use have boxes for each character of the name &
digit of the account number.

I've set up cells to match the placement of these boxes, but I'm trying to
work out how to use VBA to split the client details across these cells. I
can do this using functions, but I want to avoid having functions appearing
in what will be unlocked cells.

 

[Bob Phillips]

Maybe something like

=MID(the_full_name,COLUMN(A1),1)

and copy across

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

 

[Guest]

Thanks Bob,

I had this set up initially but the workbook is publicly available and I
want to avoid having functions in the cells. Is there anyway of doing this in
VBA? I've tried the following loop, but I keep getting errors:
Counter.Value = 0
Do
If Counter < 24 Then
ActiveCell.Offset(0, Counter) = Mid(txtBankName, Counter, 1)
Counter = Counter + 1
End If
Loop Until Counter = 24

 

[Bob Phillips]

Just change the line

Counter.Value = 0

to

Counter = 1


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)