':........................................................ ><((((º>
'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/
'...........................................'