How can I list and print a list of worksheets in a workbook?

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?

thanks
works like a charm


"Arvi Laanemets" wrote in message
...
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?

Try this macro:

sub sheets_list()
r=activecell.row
s=activecell.column
for a = 0 to sheets.count-1
cells(r+a,s).value = sheets(a+1).name
next a
end sub