VBA lav samleark med celler fra flere excel filer.

Sub ListFiles(fld As Object, Mask As String)
    Dim fl As Object 'File
    For Each fl In fld.Files
        If fl.Name Like Mask Then
            ' Debug.Print fld.Path & "\" & fl.Name
                     
         
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False
            Workbooks.Open Filename:=fld.Path & "\" & fl.Name
           
            If IsEmpty(Range("D10").Value) Then
                                 
                    Debug.Print "Der er ikke indtastning i D10 " & fld.Path & "\" & fl.Name
                             
                             
            Else
           
                    Debug.Print "Fundet indtastning i D10  " & fld.Path & "\" & fl.Name
             
                                  If IsEmpty(Range("B11").Value) Then
               
                                          Debug.Print "Celle B11 er tom i "; fld.Path & "\" & fl.Name
             
                                      Else
                               
                                              Debug.Print "Indtastning fundet i D10 og B11 "
                                             
                                  End If
                           
            End If
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True
            ActiveWorkbook.Close False
          End If
    Next
End Sub

Har fået det løst med ekstra Integer