Hi Kostas.
The Enter event is not sourced by any individual control to begin with. It is "Inherited" from the Control class. Change your code as follows.
<table width="100%" border="1" bgcolor="White" style="filter
rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD><font size="2" face=Courier New> <font color="#0000A0">Dim</font> TextBoxes() <font color="#0000A0">As</font> <font color="#0000A0">New</font> Class1
<font color="#0000A0">Dim</font> ComboBoxes() <font color="#0000A0">As</font> <font color="#0000A0">New</font> Class1
<font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> UserForm_Initialize()
<font color="#0000A0">Dim</font> TCount <font color="#0000A0">As</font> Long, CCount <font color="#0000A0">As</font> Long, c <font color="#0000A0">As</font> Control
TCount = 0
CCount = 0
<font color="#008000"> 'Set TabIndexCollection = New Collection</font>
<font color="#0000A0">For</font> <font color="#0000A0">Each</font> c <font color="#0000A0">In</font> Me.Controls
<font color="#008000"> ' TabIndexCollection.Add c, CStr(c.TabIndex)</font>
<font color="#0000A0">If</font> <font color="#0000A0">TypeOf</font> c <font color="#0000A0">Is</font> MSForms.TextBox <font color="#0000A0">Then</font>
TCount = TCount + 1
<font color="#0000A0">ReDim</font> <font color="#0000A0">Preserve</font> TextBoxes(1 <font color="#0000A0">To</font> TCount)
<font color="#008000"> 'Set TextBoxes(TCount).TextBoxGroup = c</font>
<font color="#0000A0">With</font> TextBoxes(TCount)
<font color="#0000A0">Set</font> .TextBoxGroup = c
<font color="#0000A0">Set</font> .TextBoxEnterEvent = c
<font color="#0000A0">End</font> <font color="#0000A0">With</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">If</font> <font color="#0000A0">TypeOf</font> c <font color="#0000A0">Is</font> MSForms.ComboBox <font color="#0000A0">Then</font>
CCount = CCount + 1
<font color="#0000A0">ReDim</font> <font color="#0000A0">Preserve</font> ComboBoxes(1 <font color="#0000A0">To</font> CCount)
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">Next</font> c
<font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table><button onclick='document.all("4292007104725203").value=document.all("4292007104725203").value.replace(/<br \/>\s\s/g,"");document.all("4292007104725203").value=document.all("4292007104725203").value.replace(/<br \/>/g,"");window.clipboardData.setData("Text",document.all("4292007104725203").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="4292007104725203" wrap="virtual">
Dim TextBoxes() As New Class1
Dim ComboBoxes() As New Class1
Private Sub UserForm_Initialize()
Dim TCount As Long, CCount As Long, c As Control
TCount = 0
CCount = 0
'Set TabIndexCollection = New Collection
For Each c In Me.Controls
' TabIndexCollection.Add c, CStr(c.TabIndex)
If TypeOf c Is MSForms.TextBox Then
TCount = TCount + 1
ReDim Preserve TextBoxes(1 To TCount)
'Set TextBoxes(TCount).TextBoxGroup = c
With TextBoxes(TCount)
Set .TextBoxGroup = c
Set .TextBoxEnterEvent = c
End With
End If
If TypeOf c Is MSForms.ComboBox Then
CCount = CCount + 1
ReDim Preserve ComboBoxes(1 To CCount)
End If
Next c
End Sub</textarea>
<table width="100%" border="1" bgcolor="White" style="filter
rogid:DXImageTransform.Microsoft.Gradient(endColorstr='#C0CFE2', startColorstr='#FFFFFF', gradientType='0');"><tr><TD><font size="2" face=Courier New> <font color="#0000A0">Option</font> <font color="#0000A0">Explicit</font>
<font color="#0000A0">Public</font> <font color="#0000A0">WithEvents</font> TextBoxGroup <font color="#0000A0">As</font> MSForms.TextBox
<font color="#0000A0">Public</font> <font color="#0000A0">WithEvents</font> ComboBoxGroup <font color="#0000A0">As</font> MSForms.ComboBox
Public <font color="#0000A0">WithEvents</font> TextBoxEnterEvent <font color="#0000A0">As</font> MSForms.Control
<font color="#0000A0">Sub</font> ComboBoxGroup_Enter()
MsgBox "Hello from " & ComboBoxGroup.Name
<font color="#0000A0">Exit</font> <font color="#0000A0">Sub</font>
<font color="#0000A0">If</font> ComboBoxGroup.Name <font color="#0000A0">Like</font> "TN*" <font color="#0000A0">Then</font>
frmTask.StatusBar1.Panels(1).Text = "NUM"
Else: frmTask.StatusBar1.Panels(1).Text = ""
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
<font color="#008000">'Changes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>></font>
<font color="#008000">'Sub TextBoxGroup_Enter()</font>
<font color="#008000">' MsgBox "Hello from " & TextBoxGroup.Name</font>
<font color="#008000">' Exit Sub</font>
<font color="#008000">' If TextBoxGroup.Name Like "TN*" Then</font>
<font color="#008000">' frmTask.StatusBar1.Panels(2).Text = "NUM"</font>
<font color="#008000">' Else: frmTask.StatusBar1.Panels(2).Text = ""</font>
<font color="#008000">' End If</font>
<font color="#008000">'End Sub</font>
<font color="#0000A0">Private</font> <font color="#0000A0">Sub</font> TextBoxEnterEvent_Enter()
MsgBox "Hello from " & TextBoxGroup.Name
<font color="#0000A0">Exit</font> <font color="#0000A0">Sub</font>
<font color="#0000A0">If</font> TextBoxGroup.Name <font color="#0000A0">Like</font> "TN*" <font color="#0000A0">Then</font>
frmTask.StatusBar1.Panels(2).Text = "NUM"
Else: frmTask.StatusBar1.Panels(2).Text = ""
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
<font color="#0000A0">Sub</font> TextBoxGroup_KeyDown(ByVal KeyCode <font color="#0000A0">As</font> MSForms.ReturnInteger, <font color="#0000A0">ByVal</font> Shift <font color="#0000A0">As</font> Integer)
<font color="#0000A0">Dim</font> i <font color="#0000A0">As</font> <font color="#0000A0">Integer</font>
<font color="#0000A0">If</font> TextBoxGroup.Name <font color="#0000A0">Like</font> "TN*" <font color="#0000A0">Then</font>
nonNumberEntered = <font color="#0000A0">False</font>
<font color="#0000A0">If</font> KeyCode < 49 <font color="#0000A0">Or</font> KeyCode > 57 <font color="#0000A0">Then</font>
<font color="#0000A0">If</font> KeyCode < 96 <font color="#0000A0">Or</font> KeyCode > 105 <font color="#0000A0">Then</font>
<font color="#0000A0">If</font> KeyCode <> 8 <font color="#0000A0">Then</font>
<font color="#0000A0">If</font> KeyCode <> 111 <font color="#0000A0">Then</font>
<font color="#0000A0">If</font> KeyCode <> 191 <font color="#0000A0">Then</font>
nonNumberEntered = <font color="#0000A0">True</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">If</font>
<font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
<font color="#0000A0">Sub</font> TextBoxGroup_KeyPress(ByVal KeyAscii <font color="#0000A0">As</font> MSForms.ReturnInteger)
<font color="#0000A0">If</font> <font color="#0000A0">Not</font> IsNumeric(Chr(KeyAscii)) <font color="#0000A0">Then</font> KeyAscii = 0
<font color="#0000A0">End</font> <font color="#0000A0">Sub</font>
</FONT></td></tr></table><button onclick='document.all("429200710489859").value=document.all("429200710489859").value.replace(/<br \/>\s\s/g,"");document.all("429200710489859").value=document.all("429200710489859").value.replace(/<br \/>/g,"");window.clipboardData.setData("Text",document.all("429200710489859").value);'>Copy to Clipboard</BUTTON><textarea style="position:absolute;visibility:hidden" name="429200710489859" wrap="virtual">
Option Explicit
Public WithEvents TextBoxGroup As MSForms.TextBox
Public WithEvents ComboBoxGroup As MSForms.ComboBox
Public WithEvents TextBoxEnterEvent As MSForms.Control
Sub ComboBoxGroup_Enter()
MsgBox "Hello from " & ComboBoxGroup.Name
Exit Sub
If ComboBoxGroup.Name Like "TN*" Then
frmTask.StatusBar1.Panels(1).Text = "NUM"
Else: frmTask.StatusBar1.Panels(1).Text = ""
End If
End Sub
'Changes >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'Sub TextBoxGroup_Enter()
' MsgBox "Hello from " & TextBoxGroup.Name
' Exit Sub
' If TextBoxGroup.Name Like "TN*" Then
' frmTask.StatusBar1.Panels(2).Text = "NUM"
' Else: frmTask.StatusBar1.Panels(2).Text = ""
' End If
'End Sub
Private Sub TextBoxEnterEvent_Enter()
MsgBox "Hello from " & TextBoxGroup.Name
Exit Sub
If TextBoxGroup.Name Like "TN*" Then
frmTask.StatusBar1.Panels(2).Text = "NUM"
Else: frmTask.StatusBar1.Panels(2).Text = ""
End If
End Sub
Sub TextBoxGroup_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim i As Integer
If TextBoxGroup.Name Like "TN*" Then
nonNumberEntered = False
If KeyCode < 49 Or KeyCode > 57 Then
If KeyCode < 96 Or KeyCode > 105 Then
If KeyCode <> 8 Then
If KeyCode <> 111 Then
If KeyCode <> 191 Then
nonNumberEntered = True
End If
End If
End If
End If
End If
End If
End Sub
Sub TextBoxGroup_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub</textarea>