Good afternoon,

I have this code that looks for telephone numbers in (Sheet A) matches the telephone number in column A (sheet 1) and replaces the value from column B (sheet 1) which in this case is nothing but what i want to do here is the opposite and need some help adapting my code. What i want to happen is to keep all numbers that exist in column A sheet 1 and remove anything else.


Dim myList, myRange
Set myList = Sheets("sheet1").Range("A1:B8642")
Set myRange = Sheets("A").Range("C1:H4346")
For Each cel In myList.Columns(1).Cells
myRange.Replace What:=cel.Value, Replacement:=cel.Offset(0, 1).Value, LookAt:=xlWhole
Next cel

End Sub
Thanks in advance

DJ