liam_conor
Board Regular
- Joined
- Oct 9, 2002
- Messages
- 180
I have a userform, UserForm1, with a list box and commandbutton. The list box shows all the existing worksheets in my workbook. The user selects the desired worksheet and clicks the command button to travel to it. After they have traveled to the worksheet a Yes/No MSG Box pops up and asks the user if this is the correct worksheet...
Question: How do I write a loop that will continually show a MSG Box until they have selected the Yes option on the MSG Box.
My Current Code..........
Sub ShowAllSheetBox()
' ShowAllSheetBox Macro
Dim Msg, Style, Title, Response
'Shows the UserForm1
UserForm1.Show
Msg = "Is this the JSA you wanted?"
'Message to display
Style = vbYesNo
'Display a Yes and a No button
Title = "CONFIRMATION..."
Response = MsgBox(Msg, Style, Title)
Style = vbOKOnly
Title = "User Response ..."
If Response = vbYes Then
Msg = "Yes"
Response = MsgBox("End Search", Style, Title)
Else: Msg = "No"
' Shows the user form again
UserForm1.Show
End If
End Sub
Question: How do I write a loop that will continually show a MSG Box until they have selected the Yes option on the MSG Box.
My Current Code..........
Sub ShowAllSheetBox()
' ShowAllSheetBox Macro
Dim Msg, Style, Title, Response
'Shows the UserForm1
UserForm1.Show
Msg = "Is this the JSA you wanted?"
'Message to display
Style = vbYesNo
'Display a Yes and a No button
Title = "CONFIRMATION..."
Response = MsgBox(Msg, Style, Title)
Style = vbOKOnly
Title = "User Response ..."
If Response = vbYes Then
Msg = "Yes"
Response = MsgBox("End Search", Style, Title)
Else: Msg = "No"
' Shows the user form again
UserForm1.Show
End If
End Sub