Sub Summarize()
Dim i as Long, sh as Worksheet
Dim sh1 as Worksheet
i = 0
set sh1 = Worksheets("Summary")
for each sh in Activeworkbook.Worksheets
if sh.Name < sh1.Name then
i = i + 1
sh1.cells(i,3).Value = sh.Range("C22").Value
sh1.Cells(i,4).Value = sh.Range("C44").Value
end if
Next
End Sub
--
Regards,
Tom Ogilvy

"dogpigfish" wrote in message
...
I have multiple sheets that contain data. I want to create a summary page
that holds all the data on every tab into one newly generated sheet. For
Example:

On one sheet "C22" = 1 and is set to "C44" = China
On the next sheet "C22" = 3 and is set to "C44" = Japan

The newly generated sheet would present:
C1 = 1, D1 = China
C2 = 3, D2 = Japan

I have some ideas, but a macro set to a button would be best. What code
could I use?