Hi J - great site btw. I thought that I would "borrow" your code for future projects! naturally I wanted to test and learn how you did it before storing it in my bage of tricks!
Option Explicit
Sub CreateHyperlinkedSheetList()
'Author: Jerry Beaucaire
'Date: 1/3/2011
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
With ActiveSheet.Range("A" & Rows.Count).End(xlUp)
.Offset(1).Value = ws.Name
ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Address:="", SubAddress:= _
"'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
End With
Next ws
Application.ScreenUpdating = True
End Sub
However, when I click on a link I get an error msg .
This operation has been cancelled due to restrictions in effect ion this computer.
What did i do wrong? any clues. All i did was insert the code into a new module!!
Sorry to bother you.
Thanks
Bookmarks