无效的限定符VB excel宏

我正在开发一个宏，可以向选定列的每个单元格添加超链接

我正在添加一个计数器，将+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

---

代码怎么了？提前感谢。

vba中没有计数器。toString。也许使用Cstr（计数器）？我不太确定你要带着那个东西去哪里。什么是Hoja1？Sheet1是Hoja1 Lol。所以我猜是指工作表。我猜这意味着计数器应该是contador……。代码有多处错误。对于初学者，将第一行替换为以下代码

Dim sh As Worksheets:Set sh=Sheets（“Hoja1”）

，然后用一些调试和特定错误消息编辑您的问题，QHarr，Hoja1是当前工作表的Sheet1。Hoja1正在工作，我认为主要的问题是VBA中没有.ToString（“D4”）函数。