Makro Start per Steuerelement ==> Fehler 1004

ich möchte mit meinem Makro (siehe unten) ein paar Zellen verändern. Starte ich ihn über Extras-Makros-Makros-Ausführen (bzw. Ctrl. e), funktioniert er einwandfrei, starte ich ihn über eine Befehlsschaltfläche, so erhalte ich beim Range("H1").Select den Laufzeitfehler 1004: Die Select Methode des Range-Objektes konnte nicht ausgeführt werden.

Warum????

Viele Grüße,

Brigitte

Code:

Private Sub Datum_Click()
Dim Datum As String

Sheets("VIST-Dep").Select
Range("H1").Select ' hier kommt die Fehlermeldung
Datum = ActiveCell.Value

Sheets("VIST-Dep-Graph").Select
ActiveSheet.Shapes("Text Box 3").Select
Selection.Characters.Text = Datum
End Sub