loop code error help!!!!

[cesaoes]

I have the following code,
I need it so people HAVE to answer

Dim ws As Workbook
Dim oGS As Workbook 'object Graph Sheet it was worksheet before
Set oGS = Nothing 'set to nothing in case similar code was
previously used
For Each ws In Application.Workbooks
' For Each ws In WB.Worksheets
Select Case MsgBox("Select the FedEx Worksheet" & vbLf &
"Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating
Parcel Metrics Scorecard")
'Case vbNo 'Nothing to do in this case
Case vbYes
Set oGS = ws
Exit For

End Select
'Next
If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel
Metrics Scorecard")) Then Exit For
Next



ws.Activate


what cand i do so the person using the macro is obligated to pick from the
list?

 

[Joel]

Dim ws As Workbook
Dim oGS As Workbook 'object Graph Sheet it was worksheet before
Set oGS = Nothing 'set to nothing in case similar code was
previously used
Picked = False
Do while (1)
For Each ws In Application.Workbooks
' For Each ws In WB.Worksheets
Select Case MsgBox("Select the FedEx Worksheet" & vbLf &
"Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating
Parcel Metrics Scorecard")
'Case vbNo 'Nothing to do in this case
Case vbYes
Set oGS = ws
Picked = True
Exit For

End Select
'Next
If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel
Metrics Scorecard")) Then Exit For
Next
if Picked = False then
msgbox("Error: Must select at least one item, Try again")
end
loop


ws.Activate

 

[cesaoes]

Thanks !!!

Dim ws As Workbook
Dim oGS As Workbook 'object Graph Sheet it was worksheet before
Set oGS = Nothing 'set to nothing in case similar code was
previously used
Picked = False
Do while (1)
For Each ws In Application.Workbooks
' For Each ws In WB.Worksheets
Select Case MsgBox("Select the FedEx Worksheet" & vbLf &
"Do you want to use" & vbLf & ws.Name & "." & "?", vbYesNoCancel, "Updating
Parcel Metrics Scorecard")
'Case vbNo 'Nothing to do in this case
Case vbYes
Set oGS = ws
Picked = True
Exit For

End Select
'Next
If Not (MsgBox("Select Sheet", vbYesNoCancel, "Updating Parcel
Metrics Scorecard")) Then Exit For
Next
if Picked = False then
msgbox("Error: Must select at least one item, Try again")
end
loop


ws.Activate