Prezado Reginaldo Ferreira, o valor da sua planilha não bateu com o que botei no tópico. Será que há algo errado? Muito obrigado.

alexandre. Obrigado pelos links. Aqui onde estou não consigo visualizar o segundo link por causa da internet que é bloqueado. Já tentei fazer igual ...

gstei do mapa gostaria de aprender a mexer com mapas assim tb

funciona? Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveWorkbook.RefreshAll End Sub