Public Function WidgetExists(ByVal Name As String) As Boolean On Error Resume Next WidgetExists = Not Me.Controls(Name) Is Nothing On Error GoTo 0 End Function Sub Test() MsgBox WidgetExists("Textbox" & 1) End Sub