与xlValidateList相关的错误消息

Question

非常感谢你对此的帮助。我的问题通过引用命名范围“lstlocations”解决，而不是通过创建字符串的命名范围循环（受255个字符限制）。我相信这对大多数人来说是显而易见的，我对VBA来说很新鲜。

顺便说一句，这是一个很棒的网站。

    For Each Value In Range("lstLocations")
        ALoc = ALoc & "," & Value
    Next Value

  I'm getting an error when I open my workbook, the error reads:

“我们发现”文件“中的某些内容存在问题。您是否希望我们尽可能多地恢复...”

当我选择“是”时会弹出一条消息，说“删除功能：数据验证...”

基本上，我使用userform通过下拉框填充单元格。我可以找出错误发生的位置。这似乎发生在下拉列表有大量项目的情况下，即在位置的情况下，当我有26个以上的位置时错误开始 - 它可以在25或更少的情况下正常工作。

以下是我的代码中出现错误的部分

我们将一个90级的范围分配给我们。当我将其减少到25时，我没有得到错误。可以使用的字符数有限制吗？有没有办法在不减少级别的情况下克服这个问题？

    With Sheets("Begin Quote").Range("MainLocation").Validation
    .Delete
    .Add _
    Type:=xlValidateList, _
    AlertStyle:=xlValidAlertStop, _
    Formula1:=ALoc
    End With