Colorir mapas excel vba

[Fernanda Sanches Rocha]

Boa noite, 

 

Estou com um problema com a planilha (link abaixo para download). Não consigo rodar o código VBA para colorir o mapa do Brasil de acordo com alguns valores. Vocês podem me ajudar, por favor?

Muito obrigada.

 

https://drive.google.com/file/d/0B9rmhk0sLwP-V3VVZXotRGtVMms/view?usp=sharing

 

Este é o código que eu estou com problema

 

Sub ColorirMapa()

Dim Estado As Range
Dim Celula As String

For Each Estado In Range("ESTADOS")
    Celula = Cells(Estado.Row, 3)
    ActiveSheet.Shapes(Estado).Fill.ForeColor.RGB = Range(Celula).Interior.Color
Next Estado

End Sub

 

[Basole]

@Fernanda Sanches Rochaseja bem vinda ao forum 

Veja o anexo se é isso que precisa. 

 

 

mapa_1.zip