Schaltflächen nicht ausblendbar

in einem Makro wird durch drücken einer Schaltfläche mit dem Namen "Senden" folgender Programmcode ausgeführt:

ActiveSheet.Shapes("Senden").Visible = False
Application.ScreenUpdating = False

... Hier werden Tabellenblätter kopiert, verschoben etc. - dies
... soll aber nicht gesehen werden

Application.ScreenUpdating = True
ActiveSheet.Shapes("Senden").Visible = True

Problem: Die Schaltfläche blendet sich nicht aus (was nicht ok ist), die Kopier- und Verschiebeaktionen sind jedoch nicht sichtbar (was ja auch ok ist)

Frage: Wo liegt das Problem (Lösung?) bzw. gibt es eine andere Möglichkeit diese Schaltfläche ein/auszublenden.

Danke.
Christian