Dave,

With your new worksheet selected call this code:-
Sub names()
x = 1
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Cells(x, 1).Value = ws.Name
x = x + 1
Next ws
End Sub

Mike


"Dave in Fair Oaks" wrote:

I have a workbook with 50+ sheets and each tab is named. I need
to create a new sheet in the same workbook that will pick of the same
cell from each of the 50+ sheets and put them in a column on the new
sheet. In tab order, left to right.
How can I do that without having to type each tab name in the
reference?

Thanks,
Dave ....