Excel - VBA Macro Importar y consolidar varios ficheros

Sub Importar_Ficheros()

    Dim Archivo As Variant

    Dim Examinar As Object, File As String

    '--

    MsgBox "Seleccionar Carpeta de archivos a importar y consolidar"

    ChDir ThisWorkbook.Path

    Set Examinar = Application.FileDialog(msoFileDialogFolderPicker)

    With Examinar

        .AllowMultiSelect = True

        .Title = "Seleccionar la carpeta a consolidar"

        If .Show = -1 Then

            Sheets("Hoja1").Range("A2:E" & Rows.Count).Clear

            File = Dir(.SelectedItems(1) & "\*.xls*")

            While Len(File) > 0

                MsgBox .SelectedItems(1) & "\" & File

            ''''Call ConsolidarArchivo(.SelectedItems(1) & "\" & File)

                File = Dir()

            Wend

            Sheets("Hoja1").Activate

            MsgBox "Carga completada"

        End If

    End With

End Sub

Private Sub ConsolidarArchivo(Archivo As Variant)

    Application.ScreenUpdating = False

    Application.StatusBar = Archivo

    With ThisWorkbook.Sheets("Hoja1")

        fila = .Range("A" & Rows.Count).End(xlUp).Row + 1

        Workbooks.Open Archivo

        Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row).Copy .Range("A" & fila)

    End With

    Application.StatusBar = False

    ActiveWorkbook.Close

End Sub