启动时application.transpose错误

Question

下面的代码一直有效，直到我最近更新它。它仍然有效，但由于某些原因，如果你必须点击启用编辑，它在新PC上打开时会出错。如果启用编辑，结束例程并关闭电子表格，则可以从那里开始工作。我只是想了解在启用编辑后可能导致初始打开时打嗝的原因。

代码（请注意“Mnger_Tags”是电子表格中定义的命名组）：

Dim Mnger As Variant, MngerCheck As String

Application.DisplayAlerts = False

'Determine User/Manager
Mnger = Application.Transpose(Range("Mnger_Tags").Value)
MngerCheck = LCase(Environ("UserName"))

If IsInArray(MngerCheck, Mnger) Then
    frmMngerCheck.Show
    MngerCheck = frmMngerCheck.MngerCheck
    Unload frmMngerCheck
End If

错误：

发生在线上“Mnger = Application.Transpose（Range（”Mnger_Tags“）。Value）”

  

运行时错误'1004'：   对象'_Global'的方法'范围'失败

目标：

第一行代码用于获取该命名范围（Mnger_Tags）中列出的任何名称，并创建数组Mnger。 然后代码将检查数组Mnger中的任何值是否与UserName（MngerCheck）匹配。

我希望这很清楚。这是我的第一篇文章。提前谢谢大家。