force optionbutton selection

[mdorey]

hello all...

I have the following macro to name the sheet and it's working fine

Private Sub CommandButton2_Click()   
Dim X As Variant


    If OptionButton1.Value = True Then
    X = "1"
    ElseIf OptionButton2.Value = True Then
    X = "2"
    ElseIf OptionButton3.Value = True Then
    X = "3"
    ElseIf OptionButton4.Value = True Then
    X = "4"
    ElseIf OptionButton5.Value = True Then
    X = "5"
    ElseIf OptionButton6.Value = True Then
    X = "6"
    End If
    
    If TextBox1 = "" Then
    MsgBox "Insert Name"
    Exit Sub
    End If
    
    
   Sheets(Sheets.Count).Name = TextBox1 & " " & X & " " & Date
   Unload Me
      
End Sub

I just need some help to force the users to select any of the optionbuttons

Any sugest pls??

 

[Rick Rothstein]

hello all...

I have the following macro to name the sheet and it's working fine

Private Sub CommandButton2_Click()   
Dim X As Variant


    If OptionButton1.Value = True Then
    X = "1"
    ElseIf OptionButton2.Value = True Then
    X = "2"
    ElseIf OptionButton3.Value = True Then
    X = "3"
    ElseIf OptionButton4.Value = True Then
    X = "4"
    ElseIf OptionButton5.Value = True Then
    X = "5"
    ElseIf OptionButton6.Value = True Then
    X = "6"
[B][COLOR="#FF0000"]    Else
      MsgBox "You must select an OptionButton!"
      Exit Sub[/COLOR][/B]
    End If
    
    If TextBox1 = "" Then
    MsgBox "Insert Name"
    Exit Sub
    End If
    
    
   Sheets(Sheets.Count).Name = TextBox1 & " " & X & " " & Date
   Unload Me
      
End Sub

I just need some help to force the users to select any of the optionbuttons

I think what I added in red above will do that.

 

[mdorey]

I think what I added in red above will do that.

hahaha such simple thing

it works many thanks

 

[My Aswer Is This]

Assuming your Option Captions are 1,2,3 etc. you could use this script:

Dim i As Integer
For i = 1 To 6
If Me.Controls("OptionButton" & i) = True Then
x = Me.Controls("OptionButton" & i).Caption
End If
Next