Substitua no código abaixo a palavra UserForm1 pelo nome do seu formulário(ex: FormDoValdecirk)
Depois crie uma nova macro e cole o código. 
'Macro criada por Joe em 14/09/2017
'Contato para freelancer: (61) 99136-3695
On Error GoTo finish
For i = 0 To UserForm1.Controls.Count - 1
ActiveSheet.Cells(i + 1, 1) = UserForm1.Controls(i).Name
Next
Exit Sub
finish:
MsgBox Err.Number & " " & Err.Description
Espero ter ajudado.
Se ficou como vc queria... não esqueça de marcar essa mensagem como tópico resolvido e mandar um TKS.
Abraços
Postado : 12/09/2017 11:00 am