复选框插入错误

Question

我正在制作一张我创建复选框的工作表。

我使用以下代码创建复选框：

Sub AddCheckbox()

Dim vert As Integer
Dim MyTop  As Integer
vert = Sheets("Overview").Range("P2").Value

Sheets("Database").Activate
MyTop = 15 * (vert - 1)
    ActiveSheet.CheckBoxes.Add(770, MyTop, 1, 1).Select
        With Selection
            .Caption = ""
            .Value = xlOff
            .LinkedCell = "K" & vert
            .Display3DShading = False
        End With

End Sub

这件作品完美无缺，直到我从剧本的其他部分调用它。此时我收到的消息是“名称未定义”（粗略翻译）。为什么呢？

当脚本直接启动时，会创建一个复选框，链接的单元格正常工作。 调用脚本时，会创建一个带有标题但没有指向单元格链接的复选框。