Como um controle ActiveX chama outro controle

Boa noite!!!!

Como um controle ActiveX chama outro controle

Código:

Private Sub OptionButton1_Click()

    Dim OptBtn As Object
    Dim Wks As Worksheet
    
        Set Wks = Worksheets("Plan1")
        Set OptBtn = Wks.OLEObjects("OptionButton2")
    
        OptBtn.Verb (xlPrimary)
        
End Sub

Att