OptionButton на форме

[Rik3D]

У меня на форме 4 OptionButton - OptionButton1 OptionButton2 OptionButton3 OptionButton 4.
Как сделать так чтобы имя выбранного OptionButton печаталось в ячейку на листе

Код: Выделить всё

Private Sub CommandButton1_Click()
Worksheets("с").Cells(17, 6).Value =  Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!??
End Sub

Заранее большое спаибо!!!

[Brudda]

Private Sub OptionButton1_Click()
Sheets("Sheet1").Cells(1, 1).Value = UserForm1.OptionButton1.Caption
End Sub