动态Dropdrown VBA

Question

我想在vba中创建一个excel下拉列表。 我将所需的值存储在命名区域的下拉列表中，我想在创建下拉列表时使用代码中的范围名称，如下所示

Sheet1.Range("O3:O28").Name = "test"
    With Range("rng_expensecategory").Offset(2, 0).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
         xlBetween, Formula1:="=& test"
        .IgnoreBlank = True
        .InCellDropdown = True
        .ShowInput = True
        .ShowError = True
    End With

但是xlBetween, Formula1:="=& test"行给了我一个错误。

是否存在周转或其他方式可用于引用上述代码中的名称范围