Sub CopyData()
Dim rng as Range, cell as Range, cell1 as Range
Dim sh as Worksheet
Worksheets("Summary").UsedRange.EntireRow.delete
for each sh in ThisWorkbook.Worksheets
if lCase(sh.Name) < "summary" then
set rng = sh.Range(sh.Cells(2,1),sh.Cells(2,1).End(xldown))
for each cell in rng
if cell.offset(0,7).Value 10000 then
set cell1 = worksheets("Summary") _
.Cells(rows.count,1).End(xlup)(2)
sh.Range("A1").copy Destination:=Cell1
cell.copy Destination:=Cell1.Offset(0,1)
cell.offset(0,7).Copy Destination:=cell.offset(0,2)
end if
Next
End if
Next
End Sub

--
Regards,
Tom Ogilvy


"keldo " wrote in message
...
Ogilvy, It does work!!1 Thanks a lot. In advance, the country name in
cell A1 inside each sheet. and start from row 2, col A is city and col
H is population, in this time, I just want country, city and population
list in 'summary', how to modify the program?


---
Message posted from http://www.ExcelForum.com/