|First, what works for 4 sheets, works for 400, it just takes longer. ;)|
Second, it may make sense to use a macro to set up the summary sheet (maybe by creating the column headings based on the sheet names, or something similiar) and then use formulae to keep the summary sheet up to date. It's hard to know the best approach without more details.
Finally, without knowing the layout of your workbook, it wouldn't be possible for us to create a macro that you could just drop into your workbook and run. The code would need to know where the data is and where you want it to go.
From a generic standpoint, this code will copy Row 23 from each sheet and paste it into the next empty row in a summary sheet. Maybe this will get you started.
For simplicity's sake, let's assume your summary sheet is Sheet1 and is named Summary.
'Loop through sheets, starting at Sheet2
For Sht = 2 To Sheets.Count
'Increment Row Number
NxtRow = NxtRow + 1
'Copy & Paste
Sheets(Sht).Rows(23).Copy Destination:=Sheets("Summary").Range("A" & NxtRow)