excel - 无效的限定符 VB excel 宏

Question

我正在开发一个宏，为所选列的每个单元格添加一个超链接。

我添加了一个计数器以将 +1 添加到单元格处的链接名称，它可以编译，但是当我执行时它说我“无效的限定符”。

我的代码如下：

Sub MeterHipervinculos()
   Dim sh As Worksheets
   Dim rw As Range
   Dim counter As Long

   Set sh = Sheets(Hoja1)
   counter = 0

   For Each rw In sh.Rows
       If sh.Cells(rw.row, 7).Value = "" Then
           Exit For
       End If
       If sh.Cells(rw.row, 8).Value = "" Then
          sh.Cells.Hyperlinks.Add Anchor:=Selection, Address:="FOTOS\CM" + 
            counter.ToString("D4") + ".jpg", _
               TextToDisplay:="FOTOS\CM" + counter.ToString("D4") + ".jpg"
       End If
       counter = counter + 1
   Next rw
End Sub

代码有什么问题？提前致谢。

标签： excelvba