Macro que colorea formas o mapa

Agradeceré me puedan apoyar con esta macro que me figura error y no encuentro solución
Gracias
https://drive.google.com/open?id=0B_uP-rVkJSZPV2ZucWFNbGVEQU0