Bereich in oberste sichtbare Zeile verschieben

vielleicht könnt Ihr mir helfen.

Ich habe Bereiche definiert. Diese steuere ich über eine ComboBox an. Der Bereichsname wird bei Auswahl in die Zelle V2 eingetragen. Mit Range("v2").Value frage ich diesen Bereichsnamen ab. Nun möchte ich, dass der markierte Bereich in der obersten sichtbaren Zeile zu sehen ist. Mit dem folgenden Code probier ich rum aber ich erhalte immer eine Fehlermeldung
Laufzeitfehler 1004
Die Methode 'Goto' für das Objekt 'Application' ist fehlgeschlagen

Private Sub ComboBox1_Click()
Dim Bereich
Bereich = Range("v2").Value
Application.Goto Reference:=Range(Bereich).EntireRow, _
Scroll:=True
End Sub

Vielen Dank

Holger