How can I add in excel vba a range.name to formula1 of a validationlist if range inludes more lines

Please I need help in excel vba with validationlist of dropdowns

I use the code below. I create a range, give the range a name and put it to a validation list of a cell.
This works fine as long as the range consists only of one line.

If I write in my code:
.Range(.Cells(1, 2), .Cells(1, 255)).Name = strBereichsName

the code works fine

If i write in my code a range with more than one lines per example
.Range(.Cells(1, 2), .Cells(2, 255)).Name = strBereichsName

I get an error when the debugger is on following point:
With AktiveZelle.Validation 'Selection.Validation
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=" & strBereichsName

I want to use a range for strBereichsName wich can have more than only one line.
Please help me to get over this (bug?). Is this a bug, or is this a limitation? How can I add a validation list to an active cell using a range name, when the range has more than one line?

Thanks a lot in advance for any help!

Dim myRange As Range
 
With shtSheet
        .Range(.Cells(1, 2), .Cells(1, 255)).Name = strBereichsName
           
End With
      
        ' Hide the new sheet.
'        shtSheet.Visible = xlSheetHidden
        
        'Hide the new range
        ActiveWorkbook.Names(strBereichsName).Visible = False
        ' End major changes to code *********************************
     
        On Error GoTo errdaten
        With AktiveZelle.Validation 'Selection.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=" & strBereichsName
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = ""
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        
        End With

Select allOpen in new window