too many sheet i want shortcut of all my sheets on the first sheet,possible?

[mark692]

i have many sheet and i want to create my first sheet to summarize all my sheets, and when i click the sheet name on my first sheet it will bring me to the sheet that i clicked is that possible?thanks

 

[mole999]

go search out ASAP utilities, free for home use, though I bought a copy as its worth supporting

It has a routine to index all your sheets and provide hyperlinks

 

[AlanY]

with the sheetnames in column B,

put this in column A and copy down

Excel 2012
	A	B
1	Index	Descriptions
2	Name1	Name1
3	Name2	Name2
4	Name3	Name3
5	Name4	Name4
6	Name5	Name5
7	Name6	Name6
8	Name7	Name7
9	Name8	Name8
10	Name9	Name9
11	Name10	Name10
Index

Cell Formulas
Range	Formula
A2	=HYPERLINK("#"&B2&"!"&"A1",B2)

 

[My Aswer Is This]

Not knowing where your sheet names are you can use the below script to put all your sheet names in column "A" of Sheet (1) beginning with row (2)

Sub Sheet_Names_Me()
Dim i As Integer
Sheets(1).Activate
For i = 2 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next
End Sub

Then put this Sheet Event script into Sheet(1)
Then when you double click on the sheet name in column ("A") of Sheet(1)
You will be taken to that sheet.
To install this code:

Right-click on Sheet (1) tab
Select View Code from the pop-up context menu
Paste the below code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Cancel = True
On Error GoTo M
Sheets(Target.Value).Activate
End If
Exit Sub
M:
MsgBox "No such sheet exist"
End Sub

 

[My Aswer Is This]

Or if you prefer Hyperlinks to each sheet in your workbook.
Run this script and it will put a hyperlink in column "A" of sheet(1) for every sheet in your workbook.

Sub AddHyperLinks()
Dim c As Range
Dim i As Integer
Sheets(1).Activate
For i = 2 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next

With Sheets(1)
    For Each c In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row)
        .Hyperlinks.Add Anchor:=c, Address:="", SubAddress:="'" & c.Value & "'!A1"
    Next c
End With
End Sub