printing the list of wroksheets in a workbook

[D@annyBoy]

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

 

[Arvi Laanemets]

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.

 

[D@annyBoy]

thanks
works like a charm

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.

 

[Roman]

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