Kør et VBA script når et andet script er færdig

lavpraktisk - hvis den første rutine opretter en fil i første linje og sletter den når den er færdig, og anden rutine har et loop, hvor den kører til fil ikke findes, før den går videre med arbejdet, så er den ged barberet. Det giver en del ekstra maskinarbejde, men løser opgaven. Evt kan indsættes en pause i anden rutines loop på fx 2 sek

DoEvents plejer at kunne ordne sådan en lille problematik...

Next WS
DoEvents
Call sortering...

Hvis du har sat Application.ScreenUpdating=False så kunne det også se således ud
Next WS
Application.ScreenUpdating=true
Application.ScreenUpdating=false
Call sortering...

Hej smartoffice_dk

Enten bruger jeg DoEvents forkert, eller også virker den ikke til mit. For den har ikke sorteret i alle arkene.

Public Sub FlytKunder()
    Dim rk As Long, I As Long, RW As Long, Navn As String
    rk = ActiveSheet.UsedRange.Rows.Count
    OldSheets = "DATA"
    For I = rk To 2 Step -1
        Navn = Worksheets(OldSheets).Range("F" & I)
        ErSidenOprettet Navn, OldSheets
        RW = Worksheets(Navn).Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
        Worksheets(OldSheets).Range("A" & I & ",C" & I & ":F" & I).Copy Worksheets(Navn).Range("A" & RW)
        Worksheets(OldSheets).Rows(I & ":" & I).Delete Shift:=xlUp
    Next

    DoEvents
    Call SortAllSheets
End Sub

Hvad gør jeg galt?

Det ser som fint ud... jeg har før bøvlet med copy funktionen, måske det var et forsøg værd at skrive koden om, således der ikke benyttes copy..
Hvis det er noget der må ses, så er du velkommen til at sende en mail til info@...., så skal jeg se om jeg kan liste en løsning frem

Jeg har beskrevet i linket, hvordan mit ark ser ud. Hvis det kan bruges, for jeg kan desværre ikke sende det.
Ellers tak for hjælpen.