'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.