Loop through names of buttons on a userform

Hi I need to simplify my code. Ive got a user form with 256 text boxes on, one for each column.
I've named the text boxes "TbA", TbB", "TbC" etc to corespond to the column names.
I've then got another text box named "A", "B", "C" etc which fills with the cell value from the current row.
Is there a way of looping these instead?

Private Sub CBNames_Change()
    Dim lRw As Long
    With Me
        lRw = .CBNames.ListIndex + 2    '<-add 2 to allow for header row & ListIndex starts at zero
        .A.Value = Sheets("Main").Cells(lRw, 1).Value
        .C.Value = Sheets("Main").Cells(lRw, 3).Value
        .D.Value = Sheets("Main").Cells(lRw, 4).Value
        .E.Value = Sheets("Main").Cells(lRw, 5).Value
        .F.Value = Sheets("Main").Cells(lRw, 6).Value
        'etc
    End With
End Sub

Thanks for replying but I get type mismatch error on "ctl.Value = .Cells(lRw, ctl.Name).Value"

Tracker3.xlsHere's the workbook. Click command button2 on menu2

try

Private Sub CBNames_Change()
Dim ctl As Control, lRw As Long
lRw = Me.CBNames.ListIndex + 2
With Sheets("Main")
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If Len(ctl.Name) < 3 Then ctl.Value = .Cells(lRw, ctl.Name).Value
        End If
    Next ctl
End With
End Sub

Brilliant! Thank you that save a huge amount of typing! If you could find a way to make sure the date format was dd/mm/yy that would br great?

Yeah I know its a lot but I currently have 205 lots of training that a colleague can complete. I can now have one user form that lists each one and also I can edit the column title from the user form as well as report the date the colleague completed the training. Unfortunatly I'm trying to make it as user friendly as possible for people with even less Excel knowledge than me (if thats possible!) I really appreciate all the help you guys are giving me.

maybe so

Private Sub CBNames_Change()
Dim ctl As Control, lRw As Long
lRw = Me.CBNames.ListIndex + 2
With Sheets("Main")
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Then
            If Len(ctl.Name) < 3 Then
                With .Cells(lRw, ctl.Name)
                    If IsDate(.Value) Then ctl.Value = _
                       Format(.Value, "dd/mm/yy") Else ctl.Value = .Value
                End With
            End If
        End If
    Next ctl
End With
End Sub

I've now hit another problem - If I use ctrl.name as a variable, when I come to column "AS" I can't use that as a textbox name.
Is there a better way to select a user from a combo box then have all his training listed? I can live without being able to edit the column titles

Hi roy I get an error "object does not support this property or method"

Tracker4.xlsHere you go "Menu2" commandbutton3

yes ill upload my code in sec

Sorry try that again Tracker4.xls

Hi joseph, I'm not sure I understand how to use a list box for this. What I'm trying to do is somehow select a colleague from column B which then would list all the types of training he's completed (these are in the column titles) from row 1 but making sure that if a column was moved or deleted everything would still work. At the moment commandbutton2 works fine alowing me to not only see a list of column titles but also the date my chosen colleague completed it. The problem occurs because I used the textbox name as a variable and going through alphabetically I get to "AS" which cant be used as a textbox name of course. Maybe what I need is a new aproach but I can't see the wood for the trees! Thanks

Thanks Joseph I see what you mean that is a lot easier and looks much better. The only thing is I need to also have the list show the dates the training was completed along side the list and then have some way to print the whole lot out. I really appreciate your help.

columncount is set to 1 but no dates

Sorry while youre being so kind how do I make the dates dd/mm/yy instead of mm/dd/yyyy Please

:-) brilliant! It looks so much better just the job thanks again. I assume I can take the data from the list box some how and send to a new sheet (sorry remember I'm a total newbie!)

Thank you so much thats worked great. Ill work on the printing bit to format it into a neater way but Thank you again for all your help. I've learned a lot.

I really appreciate it thanks