Como fazer um hiperlink para uma planilha oculta?

Question

E aí pessoal!

To montando uma planilha aqui, mas nessa planilha, precisa abrir muitas abas com dados de relatórios. Eu tentei ocultar as planilhas, e criar um hiperlink pra elas, mas o hiperlink não abre as planilhas ocultas... Alguém sabe se tem uma jeito de fazer isso?

Valeu!

Answer 1

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

Dim ws As Worksheet

If Not Intersect(Target.Parent, Range("A1")) Is Nothing Then

Set ws = ThisWorkbook.Sheets(Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1))

ws.Visible = xlSheetVisible

ws.Activate

End If

End Sub

Answer 2

Não, você deve copiá-la apenas no módulo de planilha que possui o índice a outras planilhas.