A handy one to file away for the future
Thanks
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
http://people.stfx.ca/bliengme
remove caps from email


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Use this macro to get a list of sheets into column A of Summary sheet.

Sub CreateListOfSheetsOnSummarySheet()
Dim ws As Worksheet
For I = 1 To Worksheets.Count
With Worksheets("Summary")
Set ws = Worksheets(I)
.Cells(I, 1).Value = ws.Name
End With
Next I
End Sub

In B1 enter =INDIRECT(A1&"!C6") and copy down.

In C1 enter =INDIRECT(A1&"!E6") and copy down.


Gord Dibben MS Excel MVP

On Tue, 23 Jun 2009 10:56:01 -0700, Newfie809
wrote:

Thank you for the information, I see what you mean if the sheets have a
different name which they do. I will keep working on it. Thanks again.