Creating a list of info in A1 cell in multiple worksheets
'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.
|