シートのボタンからフォーム出した場合、チェックボタンの動作がうまくいきません

質問

フォーム上の２つのチェックボタンをトグルさせたいのですが、シート上に設定したコマンドボタンからフォームを表示させると、トグルがうまくいきません。
尚、メニューからフォームを表示させた場合、正しく動作します。
回避させる手段はあるでしょうか？
これはエクセルの仕様なのでしょうか？
Excel2003です（英語版）。英語版Windows7Proです。

フォームのVBA
Private Sub UserForm_Initialize()
　　CheckBox1.Value = True
　　CheckBox2.Value = False
End Sub
Private Sub CheckBox1_Click()
　　CheckBox1.Value = True
　　CheckBox2.Value = False
End Sub
Private Sub CheckBox2_Click()
　　CheckBox2.Value = True
　　CheckBox1.Value = False
End Sub

シートのVBA
Private Sub CommandButton4_Click()
　　sb_UserForm1Show
End Sub

標準モジュール
Sub sb_MenuCreate()
　　sb_MenuDelete
　　Dim myMnu As Object
　　Dim Cap_P As String
　　Cap_P = "Prototype"
　　Set myMnu = CommandBars("Worksheet menu bar").Controls.Add(Type:=msoControlPopup, Before:=3)
　　With myMnu
　　　　.Caption = Cap_P
　　End With
　　sb_Menu01 Cap_P, "Delete This Menu", "sb_MenuDelete"
　　sb_Menu01 Cap_P, "RecoverTest", "RecoverTest"
　　sb_Menu01 Cap_P, "Clear DataBase", "sb_ClearDatabaseConf"
　　sb_Menu01 Cap_P, "Show All Data", "sb_ShowAllData"
　　sb_Menu01 Cap_P, "Remove Autofilter", "sb_RemoveAutofilter"
　　sb_Menu01 Cap_P, "Add Autofilter", "sb_AddAutofilter"
　　sb_Menu01 Cap_P, "Remove Sub Total", "sb_RemoveSubtotal"
　　sb_Menu01 Cap_P, "Add Sub Total", "sb_AddSubtotal"
　　sb_Menu01 Cap_P, "Load Form", "sb_UserForm1Show"
　　sb_Menu01 Cap_P, "Import to FishDataBase", "sb_Main01"
End Sub

Sub sb_Menu01(Cont_P As String, Cap_P As String, On_Act As String)
'Menu Create submodule
　　With CommandBars("Worksheet menu bar").Controls(Cont_P)
　　　　.Controls.Add(Type:=msoControlButton, Before:=1).Caption = Cap_P
　　　　.Controls(Cap_P).OnAction = On_Act
　　End With
End Sub

Sub sb_UserForm1Show()
　　UserForm1.Show
End Sub

回答No.2

bonaron

チェックボックスを使って、
オプションボタンと同様の動作を実現したい
というところでしょうか？

ExcelVBA は、あまり得意ではないのですが
力まかせにやってみました。
もっと良い方法があるかもしれません。

Private Sub UserForm_Initialize()
　　CheckBox1.Value = True
　　CheckBox2.Value = False
End Sub

Private Sub CheckBox1_AfterUpdate()
　　If Not Me.CheckBox1 Then
　　　　Me.CheckBox1 = True
　　Else
　　　　Me.CheckBox2 = False
　　End If
End Sub

Private Sub CheckBox2_AfterUpdate()
　　If Not Me.CheckBox1 Then
　　　　Me.CheckBox2 = True
　　Else
　　　　Me.CheckBox1 = False
　　End If
End Sub

お礼

回答ありがとうございます。
オプションボタンを使わなかったのは、添付写真には写っていませんがもう一組選択箇所があって、オプションボタンが使えないと思い、チェックボタンにしたわけです。
皆様のご指摘の後、調べた結果フレームを使えば何組でもオプションボタンを使えることが先ほどわかりました。
どうもお騒がせしました。