Hi All,

I am back for more advice! Someone in another thread asked for code to list all worksheets in a workbook. I have written the code for that but would like to take it one step further and hyperlink all the sheets names. How would I do this please?

The code that I used was as follows:

Sub GetSheetNames()

Dim wSheet As Worksheet
Dim i As Integer
i = 20
For Each wSheet In Worksheets

ActiveSheet.Cells(i, 8).Select

ActiveCell.Value = wSheet.Name

i = i + 1

Next wSheet

End Sub
Thanks in advance

Danny