Option Explicit
Private Sub TextBox1_GotFocus()
MsgBox "Hi"
End Sub
'Replace MsgBox with your macro or a call to a macro
Private Sub TextBox1_LostFocus()
MsgBox "Bye"
End Sub
Option Explicit
Private Sub TextBox2_Enter()
MsgBox "Hi"
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Bye"
End Sub
You can also place a "regular" (not Active-X) Textbox on a sheet programatically:Can you post a pic of what you are looking at ?
Sub RegularTextBox()
Dim TBx As Shape
Set TBx = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 60, 40, 120, 120)
MsgBox TypeName(TBx)
End Sub