Benanntenbereich über Variable ansprechen

Sub tt()
Dim Bez 'As String
ActiveWorkbook.Names.Add Name:="Bereich1", RefersToR1C1:="=Tabelle1!R1C1"
Bez = "Bereich1"
[Bez] = "abc" ' kein Fehler, aber nichts sichtbares passiert
'["Bez"] = "abc2" '424 Objekt erforderlich
'Range("Bez") = "def" '1004 Range fehlgeschlagen
'Range(Bez) = "ghi" '1004 Range fehlgeschlagen
' Funktioniert:
ActiveWorkbook.Names.Add Name:="Bereich2", RefersToR1C1:="=Tabelle1!R2C1"
[Bereich2] = "abc"
End Sub

Danke ^ Gruß
Reinhard