如题，在利用论坛上传的一个给中国地图填色的EXCEL工具时，启用宏后出现了如上错误，大家有会的能帮我解答一下吗？我把EXCEL和出现错误的程序都上传，请高手支招。
错误的程序（红色部分为显示错误的部分）：
Sub 按钮35_单击()
For i = 8 To 39
    Range("ActReg").Value = Range("datamap!C" & i).Value
    ActiveSheet.Shapes(Range("ActReg").Value).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("ActRegCode").Value).Interior.Color
  '  Selection.ShapeRange.Fill.Patterned Range(Range("ActRegCode").Value).Interior.Pattern
   
    Next i
    Range("s11").Select
   
End Sub