View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
lacos lacos is offline
external usenet poster
 
Posts: 1
Default MSForms.TextBox Exit event isn't available in Excel class mosule

I'm trying to setup MyTextBoxes class to handle data
validation of userform textboxes. My class module is as
follows:

Option Explicit

Public WithEvents MyTextBox As MSForms.TextBox
Private CurrValidation As Integer

Property Get Validation() As Integer
Set Validation = CurrValidation
End Property

Property Let Validation(ValType As Integer)
CurrValidation = ValType
End Property

Private Sub MyTextBox_Change()
MsgBox ("Change")
End Sub

Obviously I want to use MyTextBox_Exit event, but it is
not listed in the event list in the class module (all the
events are available except for AfterUpdate, Exit and
Enter). Is there any workaround of this?