Any way to force selection on userform?

I have a user 4 that has 4 selections, and an accept button. Currently, if the user doesn't make a selection, but clicks the "ACCEPT" button, I get this error:

Run-time error '9'
Subscript out of range

Is there a way to popup a message box, or anything else, that would prompt the user to make a selection? Here is my userform code:

Option Explicit
Public wsName As String


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = Not CloseMode
End Sub


Private Sub Accept_Click()
Dim ws As Worksheet
    Worksheets(wsName).Select
        For Each ws In ActiveWorkbook.Worksheets
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = xlSheetVeryHidden
            End If
        Next ws
    Unload UserForm1
End Sub


Private Sub opt1_Click()
    wsName = Me.opt1.Caption
End Sub


Private Sub opt2_Click()
    wsName = Me.opt2.Caption
End Sub


Private Sub opt3_Click()
    wsName = Me.opt3.Caption
End Sub


Private Sub opt4_Click()
    wsName = Me.opt4.Caption
End Sub

Thanks very much,
D0M

Re: Any way to force selection on userform?

Thanks for the help Roy.

That works fine, but for some reason, in doing that, the userform no longer unloads once the ACCEPT button is clicked. I haven't changed any of the code in this area, other than setting the ACCEPT button to False as you suggested. Any ideas?

Private Sub Accept_Click() 
    Dim ws As Worksheet 
    Worksheets(wsName).Select 
    For Each ws In ActiveWorkbook.Worksheets 
        If ws.Name <> ActiveSheet.Name Then 
            ws.Visible = xlSheetVeryHidden 
        End If 
    Next ws 
    Unload UserForm1 
End Sub

Thanks very much,
D0M

Re: Any way to force selection on userform?

Alastair,

Thanks for your reply also. I have tried your suggestion, as well as Roy's, and both solutions, for some reason, stop the user form from unloading.

Thanks,
D0M

Re: Any way to force selection on userform?

I thought having the code below, already included the unload command in the accept code.

Whats happening is ...
1. If I don't make a selection, and just click accept, MsgBox "Error - Please Make a Selection" pops up (Great)
2. If I make a selection, and click accept, the macro runs, but the userform doesn't do away (Not Good)

Private Sub Accept_Click()
Dim ws As Worksheet
        If wsName = "" Then
            MsgBox "Error - Please Make a Selection"
            Exit Sub
        End If
    
    Worksheets(wsName).Select
        
        For Each ws In ActiveWorkbook.Worksheets
            
            If ws.Name <> ActiveSheet.Name Then
                ws.Visible = xlSheetVeryHidden
            End If
            
        Next ws
[COLOR=Red]Unload UserForm1[/COLOR]
End Sub

I hope this was a little more clear,
Thanks for the help
D0M

Re: Any way to force selection on userform?

Andy,
Thanks for your post. Yes I did, and still do have that. I was under the impression that, from others threads here, that particular code was just to disable the "red X" on the user form.

So, I guess, the new question is, How do I disable the "red X', while still having the form unload once a selection has been made, and the accept button is pressed?

Thanks very much,
D0M

Re: Any way to force selection on userform?

Woah! You just went from zero to 220mph in under 5 seconds.
you lost me at "Use a module level variable"

Where do I put

Private m_blnAllowClose As Boolean

I assume that

Private Sub Accept_Click() 
    Dim ws As Worksheet 
    If wsName = "" Then 
        MsgBox "Error - Please Make a Selection" 
        m_blnAllowClose = False 
        Exit Sub 
    End If 
     
    Worksheets(wsName).Select 
    For Each ws In ActiveWorkbook.Worksheets 
        If ws.Name <> ActiveSheet.Name Then 
            ws.Visible = xlSheetVeryHidden 
        End If 
    Next ws 
    m_blnAllowClose = True 
    Unload UserForm1 
End Sub

is in the same spot it already was (in the userform code)

Where do I put

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 
    If Not m_blnAllowClose Then Cancel = Not CloseMode 
End Sub

Thanks very much for your help, unfortunately, this is so far above me, I can't even begin to understand it. (Upper Troposhere stuff)

D0M

Re: Any way to force selection on userform?

Andy,
Thanks for the clarification, the explanation, and the direction. My original post was code that RoyUK had helped me with, or rather wrote for me. It is a little tough for my level, but I was able to work my way through it.

Your code is definately out of my league. Although, it works perfectly. I know I have a lot more to learn, but ... thats why I am here

Thanks so much to all of you that helped. This project is now complete, and is better than I anticipated.

D0M