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