Togglebutton as Option

[Dossfm0q]

I have Excel Sht. Has Ribbon 6 Togglebuttons
I need when Press ="True" One of then the other get opposite Press="False"
Thx

 

[ParamRay]

Something like this:

Private Sub ToggleButton1_Click()
  If Me.ToggleButton1.Value Then
    Call ToggleOthers(1)
  End If
End Sub

Private Sub ToggleButton2_Click()
  If Me.ToggleButton2.Value Then
    Call ToggleOthers(2)
  End If
End Sub

Private Sub ToggleButton3_Click()
  If Me.ToggleButton3.Value Then
    Call ToggleOthers(3)
  End If
End Sub

Private Sub ToggleButton4_Click()
  If Me.ToggleButton4.Value Then
    Call ToggleOthers(4)
  End If
End Sub

Private Sub ToggleButton5_Click()
  If Me.ToggleButton5.Value Then
    Call ToggleOthers(5)
  End If
End Sub

Private Sub ToggleButton6_Click()
  If Me.ToggleButton6.Value Then
    Call ToggleOthers(6)
  End If
End Sub

Private Sub ToggleOthers(Index As Integer)
  Dim i As Integer
  Application.EnableEvents = False
  For i = 1 To 6
    If i <> Index Then
      Me.OLEObjects("ToggleButton" & i).Object.Value = False
    End If
  Next i
  Application.EnableEvents = True
End Sub

 

[mikerickson]

Would a TabStrip with the .Style set to buttons work for you instead of those toggle buttons?