Sub steffen()
If Sheets(1).OptionButton1.Value = True Then
MsgBox ("1")
ElseIf Sheets(1).OptionButton2.Value = True Then
MsgBox ("2")
ElseIf Sheets(1).OptionButton3.Value = True Then
MsgBox ("3")
ElseIf Sheets(1).OptionButton4.Value = True Then
MsgBox ("4")
ElseIf Sheets(1).OptionButton5.Value = True Then
MsgBox ("5")
ElseIf Sheets(1).OptionButton6.Value = True Then
MsgBox ("6")
ElseIf Sheets(1).OptionButton7.Value = True Then
MsgBox ("7")
ElseIf Sheets(1).OptionButton8.Value = True Then
MsgBox ("8")
ElseIf Sheets(1).OptionButton9.Value = True Then
MsgBox ("9")
End If
End Sub
Bookmarks