Laufzeitfehler 1004

Laufzeitfehler 1004
Die Methode Worksheets für das Objekt_Global ist fehlgeschlagen

Gehe ich dann auf Debuggen, sehe ich das folgende Zeile markiert ist:

Set Tabelle = Worksheets("A-Tabelle")

Im ganzen sieht es so aus:

Private Sub CommandButton5_Click()
Dim Tabelle As Worksheet

Set Tabelle = Worksheets("A-Tabelle")
Tabelle.Activate

Tabelle.Visible = xlSheetVisible
Tabelle.Range("a4").Select
End Sub

Ich hoffe jemand kann mir helfen,

Danke!

Gruss aus Berlin

Michaela