Sub unexpectedly jumps to another sub
 

Greetings all!

I have a userform with a lot of code. When I F8 through the code immediately
below and get to the line "UserForm1.ListBox1.ListIndex=0", it unexpectedly
jumps to another routine (second one below). How can I keep the top code
running without unexpectedly branching off elsewhere????

Thanks for your help!

Jeff
Tucson, Arizona

Private Sub OptionButton9_Click()

Worksheets("Glass").Range("AD9") = 1

Worksheets("Glass").Range("AD8") = 2

UserForm1.ListBox1.ListIndex = 0 (here is where it jumps to the code
below)

UserForm1.Frame3.Visible = False

UserForm1.ListBox1.Visible = False

UserForm1.Frame7.Visible = False

UserForm1.CheckBox3.Value = False

End Sub





Private Sub ListBox1_Click()

Dim Number As Integer, Warning As String, Ansr As Boolean

If GETout = True Then Exit Sub

Warning = "The thickness of this glass requires" + vbNewLine

Warning = Warning + "that it be polished or beveled. Please" + vbNewLine

Warning = Warning + "edit the edging options to your require-" + vbNewLine

Warning = Warning + "ments."

Worksheets("Glass").Range("AD12") = ListBox1.Text

Sub unexpectedly jumps to another sub
 

That is because that event is being triggered by setting the Listindex
property.

Don't worry about it, it will return to where it left off.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jeff Wright" wrote in message
news:8RRHg.7573$Mz3.3380@fed1read07...
Greetings all!

I have a userform with a lot of code. When I F8 through the code
immediately
below and get to the line "UserForm1.ListBox1.ListIndex=0", it
unexpectedly
jumps to another routine (second one below). How can I keep the top code
running without unexpectedly branching off elsewhere????

Thanks for your help!

Jeff
Tucson, Arizona

Private Sub OptionButton9_Click()

Worksheets("Glass").Range("AD9") = 1

Worksheets("Glass").Range("AD8") = 2

UserForm1.ListBox1.ListIndex = 0 (here is where it jumps to the code
below)

UserForm1.Frame3.Visible = False

UserForm1.ListBox1.Visible = False

UserForm1.Frame7.Visible = False

UserForm1.CheckBox3.Value = False

End Sub





Private Sub ListBox1_Click()

Dim Number As Integer, Warning As String, Ansr As Boolean

If GETout = True Then Exit Sub

Warning = "The thickness of this glass requires" + vbNewLine

Warning = Warning + "that it be polished or beveled. Please" + vbNewLine

Warning = Warning + "edit the edging options to your require-" + vbNewLine

Warning = Warning + "ments."

Worksheets("Glass").Range("AD12") = ListBox1.Text

Sub unexpectedly jumps to another sub
 

Bob,

Thanks, Bob! Now realizing that this is a logical change of events, I added
a line to the second module: "If UserForm1.ListBox1.ListIndex=0 Then Exit
Sub," after which, of course, it returns to the intial sub.

Thanks again,

Jeff

"Bob Phillips" wrote in message
...
That is because that event is being triggered by setting the Listindex
property.

Don't worry about it, it will return to where it left off.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jeff Wright" wrote in message
news:8RRHg.7573$Mz3.3380@fed1read07...
Greetings all!

I have a userform with a lot of code. When I F8 through the code
immediately
below and get to the line "UserForm1.ListBox1.ListIndex=0", it
unexpectedly
jumps to another routine (second one below). How can I keep the top code
running without unexpectedly branching off elsewhere????

Thanks for your help!

Jeff
Tucson, Arizona

Private Sub OptionButton9_Click()

Worksheets("Glass").Range("AD9") = 1

Worksheets("Glass").Range("AD8") = 2

UserForm1.ListBox1.ListIndex = 0 (here is where it jumps to the code
below)

UserForm1.Frame3.Visible = False

UserForm1.ListBox1.Visible = False

UserForm1.Frame7.Visible = False

UserForm1.CheckBox3.Value = False

End Sub





Private Sub ListBox1_Click()

Dim Number As Integer, Warning As String, Ansr As Boolean

If GETout = True Then Exit Sub

Warning = "The thickness of this glass requires" + vbNewLine

Warning = Warning + "that it be polished or beveled. Please" + vbNewLine

Warning = Warning + "edit the edging options to your require-" + vbNewLine

Warning = Warning + "ments."

Worksheets("Glass").Range("AD12") = ListBox1.Text

Sub unexpectedly jumps to another sub
 

You already have a test in GETOut, you could set that to True before.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jeff Wright" wrote in message
news:yhXHg.7575$Mz3.1078@fed1read07...
Bob,

Thanks, Bob! Now realizing that this is a logical change of events, I
added
a line to the second module: "If UserForm1.ListBox1.ListIndex=0 Then Exit
Sub," after which, of course, it returns to the intial sub.

Thanks again,

Jeff

"Bob Phillips" wrote in message
...
That is because that event is being triggered by setting the Listindex
property.

Don't worry about it, it will return to where it left off.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Jeff Wright" wrote in message
news:8RRHg.7573$Mz3.3380@fed1read07...
Greetings all!

I have a userform with a lot of code. When I F8 through the code
immediately
below and get to the line "UserForm1.ListBox1.ListIndex=0", it
unexpectedly
jumps to another routine (second one below). How can I keep the top code
running without unexpectedly branching off elsewhere????

Thanks for your help!

Jeff
Tucson, Arizona

Private Sub OptionButton9_Click()

Worksheets("Glass").Range("AD9") = 1

Worksheets("Glass").Range("AD8") = 2

UserForm1.ListBox1.ListIndex = 0 (here is where it jumps to the code
below)

UserForm1.Frame3.Visible = False

UserForm1.ListBox1.Visible = False

UserForm1.Frame7.Visible = False

UserForm1.CheckBox3.Value = False

End Sub





Private Sub ListBox1_Click()

Dim Number As Integer, Warning As String, Ansr As Boolean

If GETout = True Then Exit Sub

Warning = "The thickness of this glass requires" + vbNewLine

Warning = Warning + "that it be polished or beveled. Please" + vbNewLine

Warning = Warning + "edit the edging options to your require-" +
vbNewLine

Warning = Warning + "ments."

Worksheets("Glass").Range("AD12") = ListBox1.Text