Delete a Cell in Worksheet1 That Appears in Worksheet2

Here's the macro that compared column A of worksheet1 with column A of worksheet2. If only I could amend this to compare to all columns of worksheet2.

Sub DeleteEmails()
    Dim rList As Range
    Dim rCrit As Range
     
    With Worksheets("Sheet1")
        Set rList = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
    End With
    With Worksheets("Sheet2")
        Set rCrit = .Range("A1", .Cells(Rows.Count, 1).End(xlUp))
    End With
     
    rList.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rCrit, Unique:=False
    rList.Offset(1).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
    Worksheets("Sheet1").ShowAllData
     
    Set rList = Nothing
    Set rCrit = Nothing
End Sub