S
sako 338
What is the process to display all the tab names on a sheet (i did it once a
while back and can't recall how)
Thanks
while back and can't recall how)
Thanks
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
M
Max
sako 338 said:What is the process to display all the tab names on a sheet (i did it once a
while back and can't recall how)
One way is to try the sub by Peo below:
Steps
--------
Press Alt+F11 to go to VBE
Click Insert > Module
Copy > paste everything within the dotted lines below
into the whitespace on the right
-------begin vba-----
Sub SheetNames()
'Peo Sjoblom in .worksheet.functions Jul '02
Dim wkSht As Worksheet
Range("A1").Select
For Each wkSht In Worksheets
Selection = wkSht.Name
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Next wkSht
End Sub
-------endvba------
Press Alt+Q to get back to Excel
In a *new* sheet, press Alt+F8
Select "SheetNames" > Run
The sheetnames will be listed in A1 down, in this sequence:
1st sheet (leftmost) will be listed in A1,
2nd sheet in A2, and so on
Hidden sheets will also be listed
and will appear after the last (rightmost) sheet
G
Gord Dibben
One method is to use a macro.
Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub
Gord Dibben MS Excel MVP
Private Sub ListSheets()
'list of sheet names starting at A1
Dim rng As Range
Dim i As Integer
Set rng = Range("A1")
For Each Sheet In ActiveWorkbook.Sheets
rng.Offset(i, 0).Value = Sheet.Name
i = i + 1
Next Sheet
End Sub
Gord Dibben MS Excel MVP