Zeilen und Steuerelemente ausblenden

Sub AusEin()
Rows("74:153").Hidden = Not Rows("74:153").Hidden
Const firstRow = 74      ' Ab und mit dieser Zeile
Const lastRow = 153      ' Bis und mit dieser Zeile
Dim sShape As Shape
For Each sShape In ActiveSheet.Shapes
If sShape.TopLeftCell.Row > firstRow - 1 And _
sShape.TopLeftCell.Row 

Das funktioniert allerdings nur wenn ich den Button auf dem selben Tabellenblatt (zB. Tabellenblatt 1)habe.
Nun möchte ich aber gern noch einen zweiten Button auf zB.Tabellenblatt2 haben, welcher dem ersten "parallel" geschaltet ist, d.h. die selben Zeilen auf Tabellenblatt 1 ausblendet bzw. die selbe Funktion hat.
Ich habe schon probiert einem Button das selbe Makro zuzuweisen, jedoch werden zwar die Zeilen ausgeblendet, aber nicht die Steuerelemente.
Vielen Dank für eure Hilfe.
PS.Ich denke es liegt daran dem Makro noch den Namen von Tabellenblatt1 zuzuweisen. Jedoch kenne ich den Befehl nicht