Userform nur Drucken Tabelle 1

Ich habe eine Schaltfläche Eingefügt zum Drucken, nun möchte ich aber nur das es Tabelle 1 ausdruckt.

Aber Irgendwie möchte es nicht so wie ich möchte

Private Sub Drucken_Click()
'Drucken

a = MsgBox("Wollen Sie wirklich Drucken.............................?", vbYesNo)
If a = 7 Then Exit Sub
If a <> 6 Then Exit Sub
' Nein wurde gedrückt, besser wäre Ja abfragen, man kann auch das X drücken

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Danke Udo