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