nonduplicate deleting script

[interner]

I'm comparing two workbooks, and in the process, I want the noncomparisons to delete. I two workbooks, book1 and book2. Each of these workbooks has a column of serial numbers in column "A". If book1 has a serial number that is not found in anywhere in column "A" of book2, I want to delete the entire row. I feel like this somehow uses the find function, but I can't come up with a way to say "if not found then...." any help would be appreciated.

 

[interner]

i solved it, posting the code in hopes that it could help someone else

For Each cell1 In newmaster.Worksheets(1).Range("A1:A" & newmaster.Worksheets(1).UsedRange.Rows.Count)
        Set cell2 = oldmaster.Worksheets(1).Columns("A").Cells _
        .Find(What:=cell1.Value, After:=Range("A1"), LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If cell2 Is Nothing Then
        cell1.EntireRow.Clear
        End If
Next cell1