Dim icol as long, i as long
Dim lastRow as Long, Dim firstRow as Long
firstRow = 1
icol = 3 ' column C as an example
lastRow = cells(rows.count,icol).End(xlup).Row
for i = lastrow to firstrow
if cells(i,icol).Value = "Mortimer" then
cells(i,icol).EntireRow.delete
end if
Next


--
Regards,
Tom Ogilvy

"CPower " wrote in message
...
I have a list of about 40 people who work here. each week there is an
excel spreadsheet made up with a list of each case taking on in that
week and is sorted by each persons first name. These 40 people are
split into 4 teams. (my job = )Another spreadsheet needs to be made up
by macro, of what cases were taking on by each group. i would like to
know if there is away of deleting a row on the basis of what name is in
the column through macro.

some help on this would great,

Thanks,
Cathal.


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