?? SAME row on each??
sub delduprows()
dim i as long
for i = cells(rows.count,"a").end(xlup).row to 2 step -1
if cells(i,"a")=sheets("sheet2").cell(i,"a") then rows(i).delete
next i
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"email4kh" wrote in message
...
Sheet1 and Sheet2 have identical data on some rows. In Excel 2003, how do
I
find and remove all the rows on Sheet1 that are also on Sheet2?