通过VBA设置验证时出现错误1004

Question

我正在使用XL365通过vba在单元格上基于文本格式的列表设置验证。列表很长，但这从来没有引起问题（几个月以来）-今天早上在其他计算机上的Excel2013上也没有。

现在返回1004错误。

上周从头开始设置我的PC。今天之前没有再次尝试该代码。还观察到今天也安装了一些更新。

用于验证的列表未更改。从那时起，他们就已经非常长了。

（me.vars.rng只是在变量容器中定义的简单Xl范围）

Public Sub subSetValidationListOnRng(strValidationList As String)
    With Me.Vars.Rng
        On Error Resume Next
        .Validation.Delete
        If Len(strValidationList) = 0 Then Exit Sub
        .Validation.Delete
        On Error Resume Next
        .Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:=strValidationList
        .Validation.IgnoreBlank = True
        .Validation.InCellDropdown = True
    End With
End Sub