Se você está usando Form Control OPTION BUTTON
, então o comando diferente deve ser usado.
Abaixo estão alguns exemplos:
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"
ou
ActiveSheet.Shapes("Option Button 1").ControlFormat.LinkedCell = "Sheet1!$A$1"
Para executar a macro no botão de opção Clique:
ActiveSheet.Shapes("Option Button 1").OLEFormat.Object.OnAction = "Module1.MyMAcro"