Delete rows from list on another sheet?

[WERNER SLABBERT]

Hi All
I have on sheet 1 a whole contacts database. eg : Column "A" contains Names "B" telefone numbers "C" emails. ext. on Sheet 3 i have a list of emails. how can i have a macro or something lookup the mail list on sheet 3 and delete the corresponding ROW on sheet 1 ?

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
With Sheets("Sheet1")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = LR To 1 Step -1
        With .Range("C" & i)
            If IsNumeric(Application.Match(.Value, Sheets("Sheet3").Columns("A"), 0)) Then .EntireRow.Delete
         End With
    Next i
End With
End Sub

 

[WERNER SLABBERT]

thanx , here follows a stupid question....
how do i activate the code?

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor. Select Module from the Insert menu and paste the code into the white space on the right. Press ALT + Q to close the code window. Tools > Macro > Macros, click on test then click the Run button.