Sounds as thought the key thing is to loop through a set of worksheets.

The following code will do that.

Sub subLoopThroughSheets()
' Loop through a woorkbook.

Dim slSheetName As String
Dim olSheet As Worksheet

For Each olSheet In Worksheets
slSheetName = UCase(olSheet.Name)
olSheet.Activate

Select Case slSheetName

' Do NOT "process" at these sheets.
Case "A", "B", "C"
' Do nothing.

Case Else
' Collect data... maybe put it in an array.

End Select
Next olSheet

' Go to the worksheet you want the summary  in and process the array.

MsgBox "Done."
'

End Sub