COLOREAR UN MAPA - me figura error y no encuentro solución

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

wcampos