选项按钮没有消失？我的代码有问题吗？

Question

我希望根据单元格的结果显示不同的选项按钮。似乎不能让这个工作？

Private Sub Worksheet_Change(ByVal Target As Range)

With ActiveSheet
    Select Case Range("A1").Value
    Case "A"
        .Shapes("Option Button 1").Visible = True
    Case "B"
        .Shapes("Option Button 1").Visible = False
    End Select
End With
End Sub

Sub OptionButton1_Click()

End Sub