Sub GetTextBoxNames()
Dim myForm As Form
Dim myControl As Control
Dim c As Integer
Set myForm = Screen.ActiveForm
Set myControl = Screen.ActiveControl
For c = 0 To myForm.Count - 1
If TypeOf myForm(c) Is TextBox Then
MsgBox myForm(c).Name
End If
Next c
End Sub