userform üzerindeki nesnelerin adlarını sayfa1 yazmak

[hsayar]

userform üzerindeki kullanılmış nesnelerin adlarını ve türlerini sayfa1 yazmanın yöntemi varmıdır?
TxtAd, textbox gibi

 

[hamitcan]

Private Sub CommandButton1_Click()
    For i = 0 To Controls.Count - 1
        c = c + 1
        Cells(c, 1) = Controls(i).Name
    Next
End Sub

şeklinde bulabilirsiniz.

 

[hsayar]

teşekkür ederim sn. hamitcan