combining multiple workbooks

Sub Test()
'   Change Folder name to suit
    Const Folder As String = "P:\TEMP\MrExcel\MergeBooks"
    Dim i As Integer
    Application.ScreenUpdating = False
    With Application.FileSearch
        .NewSearch
        .LookIn = Folder
        .SearchSubFolders = False
        .Filename = "*.xls"
        If .Execute() > 0 Then
            For i = 1 To .FoundFiles.Count
                Workbooks.Open .FoundFiles(i)
                If i = 1 Then
                    ActiveWorkbook.Worksheets("Sheet1").UsedRange.Copy ThisWorkbook.Worksheets("Sheet1").Range("A1")
                Else
                    ActiveWorkbook.Worksheets("Sheet1").UsedRange.Copy ThisWorkbook.Worksheets("Sheet1").Range("A65536").End(xlUp).Offset(1, 0)
                End If
                ActiveWorkbook.Close False
            Next i
        Else
            MsgBox "There were no files found."
        End If
    End With
    Application.ScreenUpdating = True
End Sub