Excel-VBA尝试设置超链接时出现错误1004

Question

我正在尝试做一个非常简单的事情：

Sub HyperAdd()

    'Converts each text hyperlink selected into a working hyperlink

    For Each xCell In Selection
        ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
    Next xCell

End Sub

当在超出某个单元格时使用“1004”“应用程序定义的或对象定义的错误”时，例程在非常大的工作表上失败。我在这里发布了一个例子：

http://www.mediafire.com/?bj2nii917ztqs3z

只需选择一个单元格范围并点击按钮即可。在这种情况下，超链接转换器按钮按预期工作直到单元格D5962，但进一步失败。我看到“好”和“坏”单元块之间没有明显区别。毋庸置疑，这件事让我很困惑。

我正在使用Excel 2010。

提前致谢， 卡罗。