Excel-运行时错误'-2147024809（80070057'）进入指定集合的​​索引超出范围

Question

我有一个宏，在过去的两年中我已经在Excel中成功运行，但是在我的最新项目中继续收到以下消息：

  

“运行时错误'-2147024809（80070057'）进入指定集合的​​索引超出范围”。

我引用的形状比以前的迭代（文件中有204个形状）要多，但不确定是否与问题有关。宏如下：

Sub MapMacro()

    For i = 5 To 207
    Range("actReg").Value = Range("A" & i).Value

    If ActiveSheet.Name = "Variables" Then
        Worksheets("Map").Activate
    End If

    ActiveSheet.Shapes(Range("actReg").Value).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color

    If ActiveSheet.Name = "Map" Then
        Worksheets("Variables").Activate
    End If

    Next i

    Range("A1").Select

End Sub

我们将不胜感激！