jlock6000

Sub DelDups_TwoLists()
Dim iListCount As Integer
Dim iCtr As Integer

' Ark1 must contain the items which must be removed from Ark2
' Turn off screen updating to speed up macro.
Application.ScreenUpdating = False

' Get count of records to search through (list that will be deleted).
iListCount = Sheets("ark2").Cells(Rows.Count, "A").End(xlUp).Row