excelvba：超链接的悲哀

我在一个循环中有以下代码行：

Worksheets(mainsheet).Cells(BidItem, "K").Value = "Test " & BidItem

Worksheets(mainsheet).Hyperlinks.Add Anchor:=Worksheets(mainsheet).Cells(BidItem, "L"), Address:="http://google.com", TextToAdd:="Test link"

在执行时

Dim mainsheet As String
mainsheet = "Tester"
BidItem = 6                 ' (in this loop, it then counts to 7 and 8)

结果是我将在K6中得到“test6”，在K7中得到“test7”，在K8中得到“test8”——但在L6，L7，L8中没有

---

我已经阅读了stackexchange和其他我可以在超链接上找到的论坛。添加，我不明白为什么这不起作用。一定是锚的东西，但我不确定是什么。我的错误是什么

尝试调试代码时，不要在错误恢复下一步时使用

Dim bidItem As Long, mainsheet As String

mainsheet = "sheet3"

With Worksheets(mainsheet)
    For bidItem = 6 To 9
        .Cells(bidItem, "K").Value = "Test " & bidItem
        .Hyperlinks.Add Anchor:=.Cells(bidItem, "L"), Address:="http://google.com", TextToDisplay:="Test link"
    Next bidItem
End With

注意
TextToDisplay
不是
TextToAdd
。这应该会引发错误。
在尝试调试代码时，不要在错误恢复下一步时使用

Dim bidItem As Long, mainsheet As String

mainsheet = "sheet3"

With Worksheets(mainsheet)
    For bidItem = 6 To 9
        .Cells(bidItem, "K").Value = "Test " & bidItem
        .Hyperlinks.Add Anchor:=.Cells(bidItem, "L"), Address:="http://google.com", TextToDisplay:="Test link"
    Next bidItem
End With

注意
TextToDisplay
不是
TextToAdd
。这应该会引发错误。
TextToAdd不是超链接的参数。Add方法。改用文本显示

TextToAdd不是超链接的参数。Add方法。改用文本显示

啊。我在循环的早些时候使用了On Error，但忘了删除它。非常感谢。啊。我在循环的早些时候使用了On Error，但忘了删除它。非常感谢。