Flag af ikke behandlede data fra Excel

Denne kodestump udfører import fra en lang række regneark

    Dim Xl As Object
    Dim rsKunde As New ADODB.Recordset
    Dim rsFiler As New ADODB.Recordset
    Dim cn As ADODB.Connection
   
    Set cn = CurrentProject.Connection
    Set Xl = CreateObject("EXCEL.APPLICATION")
    rsKunde.Open "tblKundeoplysninger", cn, adOpenKeyset, adLockOptimistic
    rsFiler.Open "tblFilnavn", cn, adOpenStatic
    Do Until rsFiler.EOF
        Xl.Workbooks.Open rsFiler!filnavn, False, True
        rsKunde.AddNew
        Xl.Sheets("Skabelon").Select
        rsKunde![Aftaledato] = Xl.Range("M1")
        rsKunde!Kundenummer = Xl.Range("A9")
        ......
        ......
        rsKunde.Update
        rsFiler.MoveNext
        Xl.Quit
               
        On Error Resume Next
                                     
    Loop

Som det fremgår, har det været nødvendigt at indføje On Error resume Next, idet ikke alle regneark opfylder mine importbetingelser, men hvilke ????

Denne oplysninger vil jer gerne have returneret i min tblFilnavn, altså et flag for gennemført import.

Hvorledes skal den indbygges i den eksisterende kode ?