Hi

Below is an UDF. Copy this into your workbook's module. Then on 1st sheet,
p.e. into A1 enter the formula
=IF(ISERROR(TABI(ROW(),NOW()),"",TABI(ROW())
, and copy down at least for as much rows as you have sheets in workbook.

Into B1 enter the formula
=IF($A1="","",INDIRECT("'" & $A1 & "'!D5"))
and copy it down too.


--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )

**********
The UDF is here!

Option Explicit

Public Function TabI(TabIndex As Integer, Optional parVolatile As Date) As
String
TabI = Sheets(TabIndex).Name
End Function

***********


"Funkyfido" wrote in message
...
Is there any way I can make a table of contents in my workbook.

I want the contents to be on the first sheet and pick up the tab name and
cell d5 in each tab. How would I go about doing this?

Thanks