在excel着色过程中用于交互式地图的macros

我已经制作了一张Excel地图（通过查看一些指南），这些地图根据单元格中input的值对各个国家进行颜色编码。 我不明白为什么这个代码会popup一个错误消息，指出所使用的名称不完全存在。

代码如下：

Sub Shading() For i = 3 To 79 Range("actReg").Value = Range("ShadingMacro!A" & i).Value ActiveSheet.Shapes(Range("actReg").Value).Select Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color Next i Range("A21").Select[enter image description here][1] End Sub 

这是错误信息（对不起，这是法文）：

Erreur d'exécution'-2147024809（80070057）'：
L'élémentportant ce nom est introuvable

然后，“débogage”工具将我带到第三行：

 ActiveSheet.Shapes(Range("actReg").Value).Select 

但是我不太明白问题在哪里。