How can I create a list of the info/contents in the A1 cell in multiple
worksheets? I am trying to create a summary worksheet of the data from 90
worksheets and would like to be able to list the headers in the A1 cell
vertically.

'Right click on the summary sheet tab, and paste in this macro.
'Edit where appropriate:

Sub CreateSummary()
'Starting row for summary:
i = 1
For Each Sheet In ThisWorkbook.Sheets
If Sheet.Name <> Me.Name Then

'Control What column to place data in
Me.Cells(i, "A").Value = Sheet.Range("A1").Value
i = i + 1
End If
Next
End Sub

--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"bosch711" wrote:

> How can I create a list of the info/contents in the A1 cell in multiple
> worksheets? I am trying to create a summary worksheet of the data from 90
> worksheets and would like to be able to list the headers in the A1 cell
> vertically.

It's easy if the sheets are named sheet1, sheet2, etc:., otherwise you'd
probably need a macro. If the former case:
=INDIRECT("Sheet"&ROW(A2)&"!A1") and fill down - starting with A2 for the
2nd sheet else you'd get a circular reference on Sheet1.
HTH

"bosch711" <(E-Mail Removed)> wrote in message
news:8A6197BD-D97A-402F-B7E2-(E-Mail Removed)...
> How can I create a list of the info/contents in the A1 cell in multiple
> worksheets? I am trying to create a summary worksheet of the data from 90
> worksheets and would like to be able to list the headers in the A1 cell
> vertically.

Luke,

I pasted the macro into the summary tab but I don't know what items to edit
to make it work. Any help would be MUCH appreciated.

Thanks
Bosch

"Luke M" wrote:

> 'Right click on the summary sheet tab, and paste in this macro.
> 'Edit where appropriate:
>
> Sub CreateSummary()
> 'Starting row for summary:
> i = 1
> For Each Sheet In ThisWorkbook.Sheets
> If Sheet.Name <> Me.Name Then
>
> 'Control What column to place data in
> Me.Cells(i, "A").Value = Sheet.Range("A1").Value
> i = i + 1
> End If
> Next
> End Sub
>
> --
> Best Regards,
>
> Luke M
> *Remember to click "yes" if this post helped you!*
>
>
> "bosch711" wrote:
>
> > How can I create a list of the info/contents in the A1 cell in multiple
> > worksheets? I am trying to create a summary worksheet of the data from 90
> > worksheets and would like to be able to list the headers in the A1 cell
> > vertically.

Bob,

Thanks. I am changing my worksheet names because I have yet to get a macro
to work but your help below worked beautifully... Thank you!

"Bob Umlas" wrote:

> It's easy if the sheets are named sheet1, sheet2, etc:., otherwise you'd
> probably need a macro. If the former case:
> =INDIRECT("Sheet"&ROW(A2)&"!A1") and fill down - starting with A2 for the
> 2nd sheet else you'd get a circular reference on Sheet1.
> HTH
>
> "bosch711" <(E-Mail Removed)> wrote in message
> news:8A6197BD-D97A-402F-B7E2-(E-Mail Removed)...
> > How can I create a list of the info/contents in the A1 cell in multiple
> > worksheets? I am trying to create a summary worksheet of the data from 90
> > worksheets and would like to be able to list the headers in the A1 cell
> > vertically.
>
> .
>