ExcelBanter - list of workbook tabs

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - list of workbook tabs (https://www.excelbanter.com/excel-programming/449419-list-workbook-tabs.html)

[email protected]

list of workbook tabs

is there any way to create a list of all the tabs of a workbook on one worksheet? thanks

Claus Busch

list of workbook tabs

Hi,

Am Fri, 25 Oct 2013 12:06:44 -0700 (PDT) schrieb :

is there any way to create a list of all the tabs of a workbook on one worksheet? thanks

try:

Sub Tabs()
Dim wsh As Worksheet
Dim i As Integer

For Each wsh In ThisWorkbook.Worksheets
i = i + 1
Sheets("Sheet1").Cells(i, 1) = wsh.Name
Next
End Sub

Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

[email protected]

list of workbook tabs

On Friday, October 25, 2013 3:14:51 PM UTC-4, Claus Busch wrote:
Hi,

Am Fri, 25 Oct 2013 12:06:44 -0700 (PDT) schrieb :

is there any way to create a list of all the tabs of a workbook on one worksheet? thanks

try:

Sub Tabs()

Dim wsh As Worksheet

Dim i As Integer

For Each wsh In ThisWorkbook.Worksheets

i = i + 1

Sheets("Sheet1").Cells(i, 1) = wsh.Name

Next

End Sub

Regards

Claus B.

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

works great, thank you Claus. One more thing, in the adjacent column I would like to reference data in a specific cell from the corresponding tab. thanks again.

Claus Busch

list of workbook tabs

Hi,

Am Fri, 25 Oct 2013 13:07:49 -0700 (PDT) schrieb :

One more thing, in the adjacent column I would like to reference data in a specific cell from the corresponding tab. thanks again.

what do you want to have? The range address of each tab?

Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

[email protected]

list of workbook tabs

On Friday, October 25, 2013 4:10:19 PM UTC-4, Claus Busch wrote:
Hi,

Am Fri, 25 Oct 2013 13:07:49 -0700 (PDT) schrieb :

One more thing, in the adjacent column I would like to reference data in a specific cell from the corresponding tab. thanks again.

what do you want to have? The range address of each tab?

Regards

Claus B.

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

I would like to have a worksheet that lists all tabs in the workbook and also references a specific cell in each tab next to the tab name on the worksheet

Claus Busch

list of workbook tabs

Hi,

Am Fri, 25 Oct 2013 13:36:50 -0700 (PDT) schrieb :

I would like to have a worksheet that lists all tabs in the workbook and also references a specific cell in each tab next to the tab name on the worksheet

if the specific cell is C3 then try (else modify to suit):

Sub Tabs()
Dim wsh As Worksheet
Dim i As Integer

For Each wsh In ThisWorkbook.Worksheets
With Sheets("Sheet1")
If wsh.Name < .Name Then
i = i + 1
.Cells(i, 1) = wsh.Name
.Cells(i, 2) = wsh.Range("C1")
End If
End With
Next
End Sub

Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

[email protected]

list of workbook tabs

On Friday, October 25, 2013 4:42:04 PM UTC-4, Claus Busch wrote:
Hi,

Am Fri, 25 Oct 2013 13:36:50 -0700 (PDT) schrieb :

I would like to have a worksheet that lists all tabs in the workbook and also references a specific cell in each tab next to the tab name on the worksheet

if the specific cell is C3 then try (else modify to suit):

Sub Tabs()

Dim wsh As Worksheet

Dim i As Integer

For Each wsh In ThisWorkbook.Worksheets

With Sheets("Sheet1")

If wsh.Name < .Name Then

i = i + 1

.Cells(i, 1) = wsh.Name

.Cells(i, 2) = wsh.Range("C1")

End If

End With

Next

End Sub

Regards

Claus B.

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

works great. thank you so much for all your help!

All times are GMT +1. The time now is 01:04 AM.