I have four option boxes on a spreadsheet.The following code works fine but
I'd like to have it working in select case, but I don't know how to do it,
any offers?

Private Sub options()
If opt1.Value = True Then
MsgBox ("You chose A")
ElseIf opt2.Value = True Then
MsgBox ("You chose B")
ElseIf opt3.Value = True Then
MsgBox ("You chose C")
ElseIf opt4.Value = True Then
MsgBox ("You chose D")
Else: MsgBox ("You didn't choose any")
End If
End Sub

Sandy