Markierung benennen aufgrund Text in Zelle

Sub kann ich eine Zelle mit dem Text, welcher 2 Zeilen weiter oben enthalten ist, benennen.
Was muss ich am Code anpassen, damit dies auch funktioniert, wenn ich einen Bereich angewählt  _
habe?
Beispiel
In A1 Steht "NameX"
Markiert ist A3:A19
Wenn ich den Makro aufrufe, soll der Bereich A3:A19 mit "NameX" benannt werden.
Danke für eine Antwort.
Gruss, Peter

Sub BereichBenennenUn()
'benennt markierten Bereich mit Name der in der darauf folgenden Zelle steht
'funktioniert nur, wenn markierter Bereich eine Spalte umfasst
ActiveWorkbook.Names.Add Name:=Selection(Selection.Cells.Count).Offset(-2, 0).value, RefersTo:= _
Selection
End Sub