Hiperlink

[BATMAN_PT]

I have a problem using the macro bellow. I want do create a macro to count and list all name of existing worksheets in the workbook and creat hiperlinks to the repective worksheets.

CAN SOMEBODY HELP ME



Sub listar_folhas()
Set folhas = Application.Worksheets
num_folhas = folhas.Count
Range("A1").Value = num_folhas & "NUMERO DE FOLHAS"
linha = 2
Dim nome_folha As String

For a = 1 To num_folhas
nome_folha = folhas(a).Name
Range("A" & linha).Select
ActiveCell.Value = nome_folha
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'nome_folhas'!A1", TextToDisplay:=nome_folha
linha = linha + 1


Next a
End Sub

 

[Airfix9]

Have a look here:

http://www.mrexcel.com/forum/showthread.php?t=386279#post1916856