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