':........................................................ ><((((º>
'Excel VBA Macros - Esta macro insere hiperlink na planilha um para navegar para outras planilhas.
'.......................................................'
Sub Lista_nome_das_planilhas_em_hyperlinks()
'.......................................................'
On Error Resume Next
Sheets.Add.Name = "Lista_Planilhas"
Sheets("Lista_Planilhas").Move Before:=Sheets(1)
Dim Minhas_Planilhas As Worksheet
Dim x As Integer
x = 1
For Each Minhas_Planilhas In Worksheets
Cells(x, 1).Select
ActiveCell = Minhas_Planilhas.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & ActiveCell.Value & "'!A1" 'modif. 1
'SubAddress:=Chr(39) &ActiveCell.Value & Chr(39) & "!A1" 'modif. 2
'SubAddress:=ActiveCell.Value & "!A1"
x = x + 1
Next Minhas_Planilhas
x = 1
End Sub
'............................................'
O Site das macros Excel VBA Fórmulas e Funções
Coleção de 15.000 Macros, Funções e Fórmulas
http://www.saberexcel.com/
'...........................................'

VBA Excel - Esta macro insere hiperlink na planilha Excel um para navegar para outras planilhas.

' Excel VBA Macros (aplicativo ms excel )
' Esta macro insere hiperlink na planilha um para navegar para outras planilhas.

Sub Hyperlink_navegar_planilhas()
Dim i As Integer
For i = 1 To Worksheets.Count
With Sheets(”Plan1″)
.Cells(i, 1).Value = Worksheets(i).Name
.Cells(i, 1).Hyperlinks.Add Anchor:=.Cells(i, 1), _
Address:=”", SubAddress:=.Cells(i, 1) & “!A1″
End With
Next i
End Sub
’—‘
Site das Macros Excel VBA
( 25.000 Macros, Funções, Fórmulas, Blog, Apostilas, Dicas, Boletins, 5.000 Planilhas Modelos)
http://www.saberexcel.com.br/
‘—————————————–‘