Sub SheetNames()
Dim wkSht As Worksheet
Range("A1").Select
For Each wkSht In Worksheets
Selection = wkSht.Name
ActiveSheet.Hyperlinks.Add _
Anchor:=Selection, _
Address:="", _
SubAddress:="'" & wkSht.Name & _
"'!A1"
ActiveCell.Offset(rowOffset:=1, _
columnOffset:=0).Activate
Next wkSht
End Sub

--
Regards,
Tom Ogilvy



"Nemesis_uk" wrote in message
oups.com...
Thanks that's great Peo, I think thats about the 3rd time you come to
my rescue,could I convert those names on sheet1 to lnks to the actual
sheets , that would be really handy with some of the worksheets I'm
currently working on.


Regards

Nemesis_uk

Peo Sjoblom wrote:
One way

Sub SheetNames()
Dim wkSht As Worksheet
Range("A1").Select
For Each wkSht In Worksheets
Selection = wkSht.Name
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next wkSht
End Sub