would something like this get you started?

Sub cntrls()
Dim i As Long
Dim Ctl As msforms.Control
i = 1
For Each Ctl In UserForm1.Controls
Range("A" & i).Value = Ctl.Name
i = 1 + 1
Next
End Sub

--


Gary


"Bill Case" wrote in message
...
Hi;

I wanted to load a list of contols from a userform into a blank worksheet
for later printing. I want to use it as a personal checklist that I haven't
forgotten to fix or change somethings. I wrote a short procedure. Now I
have spent an inordinate amount of time trying to get the procedure to work.

What I want is something like:

sub controlslist()
List control names & TabIndexes but exclude lables
For userform 'NewMembForm'
Put each name and TabIndex side by side in separet cells
in a vertical list in a worksheet
End Sub

I am now working, using random attempts to make this work.
So I decided to stop and ask.

Regards Bill