Dynamic map of the netherlands based on colors macro

[TimvMechelen]

Hi,

Can somebody help me with this macro?
I made the Netherlands with shapes of the provinces. I want each province to get the color based on the range in the second sheet.
I already made the file, you can download it with the link in this post

I copied the macro of this video:
https://www.youtube.com/watch?v=BncoMj3IIHo&t=634s

It's giving an error, can somebody help me?

FILE:
https://www.dropbox.com/s/etj4s7kgsqxabwl/EXCEL Preset - Nederland Provincies.xlsm?dl=0

 

[TimvMechelen]

Can somebody help me with this macro?

Sub Shades()


   For i = 3 to 14
   Range("actReg").Value = Range("ShadingMaros!A" & i).Value
   ActiveSheet.Shapes(Range("actReg").Value).Select
   Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("actRegCode").Value).Interior.Color


Next i


Range("A1").Select
End Sub