find duplicates in different sheets

[mrkasten]

I am using Excel 2010 and I need to find a way to find duplicated items that are in different worksheets. One sheet is a long list of none cashed checks and each month I get a new list and I need to find a way to see if any of the checks on the original list have been cashed. The checks that have been cashed will not be on the new sheet that I get every month.

 

[Comfy]

Sub ChequeRemove()
Dim wb As Workbook, oWS As Worksheet, nWS As Worksheet
Dim i As Long, LastRow As Long, LastCol As Long, nLastRow As Long
Set wb = ActiveWorkbook
Set oWS = wb.Sheets("Outstanding ST Loans")
Set nWS = wb.Sheets("June 2010")

nLastRow = nWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
LastRow = oWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
LastCol = oWS.Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Column

oWS.Range(Cells(1, LastCol + 1), Cells(LastRow, LastCol + 1)).FormulaR1C1 = "=VLOOKUP(RC[" & 11 - (LastCol + 1) & "],'" & nWS.Name & "'!R1C4:R" & nLastRow & "C4,1,FALSE)"

For i = LastRow To 1 Step -1
If oWS.Cells(i, (LastCol + 1)).Text = "#N/A" Then Rows(i).EntireRow.Delete
Next i
End Sub

 

[mrkasten]

That worked perfectly. Thank you so much for all of your help