Macro para modificar hiperlinks em diferentes planilhas

[rcassel]

Prezados, bom dia

Gerei um relatório em Excel com 10 planilhas. Depois renomeei as planilhas através de uma macro: a primeira depende do conteúdo de uma célula (Active.Sheet.Name = cel xxxx). Em seguida as planilhas receberam o nome1,2,3, até 9.

Acontece que nessas nove, cada uma tem uma célula específica com conteúdo "Voltar para o Menu", que varia de posição em cada uma das planilhas. Ou seja, na 1 pode estar em A34, na 2 em A59, etc. E como alterei o nome da primeira planilha, elas perderam o link.

Pergunto: como poderia criar um comando para que o Excel procure, nas nove planilhas, a posição da célula "Voltar para o Menu", e altere seu link para o novo nome da primeira planilha, que foi atribuído pela macro?

Obrigado!

Ramon

[dofall]

On Error Resume Next

Dim Plan As Worksheet

Dim celula As Range

For Each Plan In ThisWorkbook.Worksheets

Set celula = Plan.Range("1:65536").Find("Voltar para o Menu")

Plan.Hyperlinks.Add celula, "", Worksheets(1).Name & "!A1"

Next Plan

[rcassel]

Copiei exatamente o comando, só alterei "Voltar para o Menu" para "Menu", que é a frase que está na célula, mas não aconteceu nada... tenho que fazer mais alguma adaptação? O que significa On Error Resume Next?

Valeu!

Ramon

[dofall]

É para dar certo sim, é só colocar em um Sub e executar.

On Error Resume Next significa que se der algum erro na execução é para ignorar e continuar, porque se em alguma planilha não for encontrado "Voltar para o Menu", vai dar um erro, aí com essa instrução o código continua a ser executado.