Hi All........
Some kind person gave me this macro some time back, sorry I don't remember who.
Sub ListSheets()
'Lists all SheetNames in Workbook on new sheet called "SheetNames"
On Error Resume Next
Sheets.Add.Name = ("SheetNames")
For i = 1 To Worksheets.Count
Cells(i, "a") = Sheets(i).Name
Next i
End Sub
It works beautifully as far as it goes.
Now, I need those Sheetnames in the list made into Hyperlinks to each of their sheets in the current workbook, and not be linked to the workbook name because that will change with time.
I know how to do it by hand, but that takes a long time. I would much appreciate it if someone could give me the code to do it automatically. I've tinkered with it but no joy yet.
Any help would be much appreciated.
Vaya con Dios,
Chuck, CABGx3
Chuck, CABGx3