printing the list of wroksheets in a workbook
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 |
All times are GMT +1. The time now is 07:50 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com