Hi

Copy the function below into VBA module

Public Function TabByIndex(TabIndex As Integer) As String
Application.Volatile
TabByIndex = Sheets(TabIndex).Name
End Function


Into A1 enter the formula
=IF(ISERROR(TABBYINDEX(ROW())),"",TABBYINDEX(ROW() ))
and copy down.


--
Arvi Laanemets
(When sending e-mail, use address arvil<Attarkon.ee)


"D@annyBoy" wrote in message
...
How can I list and print a list of worksheets in a workbook?