Inserir hyperlink pra todas as planilhas com retorno para principal

Esta macro insere um hiperlink automaticamente para todas as folhas de planilhas com link de retorno para planilha principal, observe que o procedimento é inserido no módulo de código da folha de planiha, usando o - Evento Worksheet_Activate

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "ÍNDICE"
.Cells(1, 1).Name = "Index"
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
l = l + 1
With wSheet
.Range("A1").Name = "Start_" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"
End With

Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

Esta macro deleta todos os dados existentes em todas as planilhas para teste,

Sub limpar_teste()
Dim resposta As String
resposta = MsgBox("Deseja deletar links para teste?", vbYesNo + vbInformation, "Saberexcel - site das macros")
If resposta = vbYes Then
For Each wSheet In Worksheets
With wSheet
.Range("A1:A100").ClearContents
End With
Next wSheet
MsgBox ("Links deletados em todas folhas planilhas"), vbInformation, "Saberexcel - site das macros"
End If
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA




Compre com segurança e garantia na internet o que precisar- Lojas Submarino