View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Patrick C. Simonds Patrick C. Simonds is offline
external usenet poster
 
Posts: 343
Default TextBox exit routine 2nd try

I use a 2 page multipage control (page 0 and Page 1) . On page 1 is
TextBox2203 which has an Exit routine (see below). My problem is that if
TextBox2203 is the active control and the user clicks on the tab to go to
page 0 of the multipage control, the exit routine for the TextBox does not
run. so is there any way to:

1. Get the exit routine to run if the user attempts to change pages without
exiting the the TextBox first.
2. If possible (but low priority) keep them on page1 if all the
OptionButtons are false.




Private Sub TextBox2203_Exit(ByVal Cancel As MSForms.ReturnBoolean)


Application.SpellingOptions.IgnoreCaps = False
Sheets("Sheet2").Unprotect

Sheets("Sheet2").Range("a1").Value = TextBox2203.Text
Application.EnableEvents = False
Sheets("Sheet2").Range("a1").CheckSpelling
Application.EnableEvents = True
TextBox2203.Text = ""
TextBox2203.Text = Sheets("Sheet2").Range("a1").Value
Sheets("Sheet2").Range("a1").Value = ""

If TextBox2203.Value < rng1(1, 7) Then

OptionButton2201.Value = False
OptionButton2202.Value = False
OptionButton2203.Value = False
OptionButton2204.Value = False
OptionButton2205.Value = False
OptionButton2206.Value = False

End If

End Sub