james:

that may work. i will give it a try later.

--


Gary


wrote in message
oups.com...
Hi Gary,

Ah, so you are trying to combine the sheets into a summary? A different
approach could be to set the summary sheet, this will work as long as
you don't rename the summary sheet.

Dim xsheet As Worksheet
Dim Sumry As Worksheet
Set Sumry = ThisWorkbook.Sheets("Summary")
Application.ScreenUpdating = False
For Each xsheet In ThisWorkbook.Worksheets
If xsheet.Name = "Summary" Then GoTo Nextxsheet
'code for copying info
Sumry.Select
'paste results
xsheet.Select
'go back for other results
'etc.



Nextxsheet:
Next xsheet
This will then loop through all sheets except the summary sheet.

Are we getting there?

Cheers

James