forgot to do a next
if ucase(right(.cells(i,1),1))="D" then .rows(i).delete
next i 'add
end with


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
try something like this

for each ws in worksheets
with ws
for i=.cells(.rows.count,1).end(xlup).row
if ucase(right(.cells(i,1),1))="D" then .rows(i).delete
end with
next ws
next i

--
Don Guillett
SalesAid Software

"delmac" wrote in message
...
Hi all, I've 2 columns:about 500 rows long. I dont need the rows where
column
A contains a number ending in D such as 123-D. can anyone suggest a quick
way
of deleting theses. I have over 10 sheets with hundreds of items . Thanks
agin.
A B
100-C Description
123-D Description
130-D Description
500-T Description
--
delmac