For i = Cells(Rows.Count,"A").End(xlUp).Row To 1 Step -1
If Not IsError(Appliction.Match(Cells(I,"A").Value,
Sheet2!Columns(1),0)) Then
Rows(i).Delete
End If
Next i

chnge the columns to suit

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"blander" wrote in
message ...

Hi guys,

I have a list of contacts, including email addresses.

I have a list of email addresses (seperate from the main list) which i
want to delete from the main list, due to being out of date. Obviously i
want to remove these emails from the main list.

Is there a macro that i can use which will delete the values from one
colum in one sheet if they exist in another colum in another sheet??

Cheers,


--
blander
------------------------------------------------------------------------
blander's Profile:
http://www.excelforum.com/member.php...o&userid=36486
View this thread: http://www.excelforum.com/showthread...hreadid=566578