J
Jeff Wright
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
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