Paulked,

I run it an I do not get any breaks or error messages. However, it does not delete the rows in the "PO & Accrual Data" worksheet. But, you have the code here. Not sure why it is not executing that step? And it is a loop so it should be deleting all instances in that worksheet.

Any ideas?

I have attached the document.

 'Loop through list to delete    For i = UBound(arS1) To 2 Step -1
        'Loop through dictionary items
        For Each ky In dic.Keys
            'If there is a match. delete the PO row
            If Sheet153.Cells(i, 1) = ky Then Sheet278.Rows(i).Delete shift:=xlUp
        Next
    Next
    'Show deleted PO's
    kys = dic.Keys
    If dic.Count <> 0 Then 'Can't print nothing!
        Sheet278.Range("E5").Resize(dic.Count) = Application.Transpose(kys)
    End If