Loop through names of buttons on a userform

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?