Generate list from cell values in all sheets

[lol.xls]

I have about 1000 sheets (each unique sheet names...not Sheet#####). All sheets have a value in a merged cell B8:E8. How can I create a list in a blank summary sheet using a formula or VBA ?

 

[My Aswer Is This]

Try this:

Sub My_List_Of_Cells()
'Modified 12/19/2018 4:47:39 PM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim x As Long
x = 1
For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Summary" Then
        Sheets("Summary").Cells(x, 1).Value = Sheets(i).Cells(8, 2).Value
        x = x + 1
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[most]

Sub forEachWs()
    Dim ws As Worksheet
    x = 1
    For Each ws In ActiveWorkbook.Worksheets
        Worksheets("Summary").Cells(x, 1).Value = ws.Range("A1").Value
        x = x + 1
    Next
End Sub

If needed add something like "If Not ws.Name = "Summary" Then..."