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!