Makrofehler

Hallo.
Ich habe in einer Exceltabelle folgendes Makro enthalten:

Private Sub CommandButton1_Click()
Zeile = Worksheets("Adressen").UsedRange.Rows.Count
Bereich = "Adressen!A4:G" & Zeile
Me.ListBox1.RowSource = Bereich
End Sub

Nun wird im fettmarkierten Bereich ein Fehler angezeigt ("Fehler beim Kompilieren - Methode oder Datenobjekt nicht gefunden!").
Die erste Zeile ("Private Sub CommandButton1_Click()") wird gelb hinterlegt...
Wie kann ich diesen Fehler beheben?

Danke für eure Hilfe,
Gruß
Marc