index pages help

[flier109]

i have a spreadsheet with a sheet for every customer. I've created an index tab and want to display cell h13 from every customer's sheet on the index page. I;'m sure I've done this before but can't for the life of me find howto do it today, could anyone assist?

[akhileshgs]

wont simple =h13 suffice?
Can you pls upload the sample file

[flier109]

I was looking for a quicker way of doing it

[akhileshgs]

Found something closer yesterday.

May be others can add in this and help you

Sub Create Index()
'
'The Excel Club com macro example
'need to create a tab named index and put the codes in that
'
Dim wSheet As Worksheet

Dim l As Long

l = 3

With Me

.Columns(1).ClearContents

.Cells(1, 1) = "INDEX"

.Cells(1, 1).Name = "Index"

End With

For Each wSheet In Worksheets

If wSheet.Name <> Me.Name Then

l = l + 1

With wSheet

.Range("B4").Name = "Start_" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("B4"), Address:="", _
SubAddress:="Index", TextToDisplay:="Back to Index"

End With

Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name

End If

Next wSheet

End Sub 

[FDibbins]

No need for VBA for this.

Create a name range, and call it sheetnames
Refers to: =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

Now, where you want the sheet names to be, use this, copied down...
=IFERROR(INDEX(Sheetnames,ROWS($A$2:A2)),"")

To get your values...
=INDIRECT("'"&A2&"'!H13")