Bezug ermitteln

ich habe auf dem Blatt "Tabelle1" einen Bereich "Test" benannt. Angeblich soll die Bezugsadresse mit dem Code

Private Sub Bereich_markieren()
Dim Bereich As Range
Sheets("Tabelle1").Activate
Set Bereich = Range(Range("Test").Address)
Bereich.Select
End Sub

zu ermitteln sein.

Ich bekomme allerdings die Fehlermeldung 'Laufzeitfehler 1004' 'Die Methode 'Range' für das Object '_Worksheet' ist fehlgeschlagen!'

Was mache ich falsch?

Rüdiger