Yes just remove the IF THEN test,
For lngIndex = ListBox2.ListCount - 1 To 0 Step -1 Set rngFind = Worksheets("Sheet2").Range("A:A").Find(ListBox2.List(lngIndex)) If Not rngFind Is Nothing Then rngFind.Delete xlShiftUp For lngIndex2 = 0 To ListBox1.ListCount - 1 If ListBox1.List(lngIndex2) = ListBox1.List(lngIndex) Then ListBox1.RemoveItem lngIndex2 Exit For End If Next ListBox2.RemoveItem lngIndex Next