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