实时错误

With List2
    For i = 0 To .ListCount - 1
        For j = 0 To List3.ListCount - 1
            If .List(i) = List3.List(j) Then
                .RemoveItem i
            End If
        Next j
    Next i
End With