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