CommandButton

in Tabelle 3 steht:

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then Sheets("Tabelle2").PrintPreview Else MsgBox ("Kein Blatt ausgewählt!")

End Sub

in DieseArbeitsmappe steht:

Private Sub Workbook_BeforePrint(Cancel As Boolean)


If Sheets("Tabelle3").CommandButton1.Value = True Then MsgBox ("Hallo") Else MsgBox ("Geht nicht!")

End Sub

Auch wenn ich auf den CommandButton Klicke kommt als MessageBox "Geht nicht", obwohl doch True und somit "Hallo" erscheinen müßte.

Wer kann mir mal auf die Sprünge helfen, ist wohl doch schon etwas spät!

Danke im voraus!