Hi guys,

Can anyone suggest how I could write some code that would return all
the control names on a user form?

I've designed the form and re-named all the controls to something
meaningful. I know that when I right click the form to get a tab order
it displays all the field names so what I really want is a similar
thing that I can output for reference when writing the code.

Thanks in advance

Pete

OK - I guess someone is going to tell me to search the archives before
posting - and you'd be right!

Sorry to take up your time, I did it by using

Sub getNames()

Dim ctl As Control
Dim i As Integer

i = 2

For Each ctl In frmBook.Controls
Sheet3.Activate
Cells(i, 1) = ctl.Name
i = i + 1
Next ctl


End Sub

based on a posting from 2003.

Apologies for not being diligent!

Pete




Peter wrote:

Hi guys,

Can anyone suggest how I could write some code that would return all
the control names on a user form?

I've designed the form and re-named all the controls to something
meaningful. I know that when I right click the form to get a tab order
it displays all the field names so what I really want is a similar
thing that I can output for reference when writing the code.

Thanks in advance

Pete

Hi Pete,

Try something like:

'=============
Public Sub Tester()
Dim CTRL
Dim i As Long

For Each CTRL In UserForm1.Controls
i = i + 1
Cells(i, 1).Value = CTRL.Name
Next CTRL

End Sub
'<<=============


---
Regards,
Norman


"Peter" wrote in message
oups.com...
Hi guys,

Can anyone suggest how I could write some code that would return all
the control names on a user form?

I've designed the form and re-named all the controls to something
meaningful. I know that when I right click the form to get a tab order
it displays all the field names so what I really want is a similar
thing that I can output for reference when writing the code.

Thanks in advance

Pete

Thanks Norman - I appreciate the reply. That definitely works!


Norman Jones wrote:
Hi Pete,

Try something like:

'=============
Public Sub Tester()
Dim CTRL
Dim i As Long

For Each CTRL In UserForm1.Controls
i = i + 1
Cells(i, 1).Value = CTRL.Name
Next CTRL

End Sub
'<<=============


---
Regards,
Norman


"Peter" wrote in message
oups.com...
Hi guys,

Can anyone suggest how I could write some code that would return all
the control names on a user form?

I've designed the form and re-named all the controls to something
meaningful. I know that when I right click the form to get a tab order
it displays all the field names so what I really want is a similar
thing that I can output for reference when writing the code.

Thanks in advance

Pete