Если вы используете, Form Control OPTION BUTTON
то следует использовать другую команду.
Ниже приведено несколько примеров:
ActiveSheet.OptionButtons("Option Button 1").Select ActiveSheet.Shapes("Option Button 1").ControlFormat.Value = Xlon Range("A1")=Activesheet.OptionButtons("Option Button 1").value ActiveSheet.OptionButtons("Option Button 1").LinkedCell = "Sheet1!$A$1"
или же
ActiveSheet.Shapes("Option Button 1").ControlFormat.LinkedCell = "Sheet1!$A$1"
Для запуска макроса при нажатии кнопки выбора:
ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.OnAction = "Module1.MyMAcro"