I haven't tried this myself so there's likely errors in the code, but
try this...

set summ = ActiveWorkbook.Worksheets("theNameOfTheSummaryShee t")
i = 1
for each sheet in ActiveWorkbook.Worksheets
if sheet.name="theNameOfTheSummarySheet" then goto SKIPTHISONE
theThingIWant = sheet.range("A1") ' adjust this to get the value
you're interested in
summ.Cells(1, i) = theThingIWant ' the first number is the row,
the second is the column
SKIPTHISONE:
next sheet

Maury