Sub CopyDataBaseFile()
Application.ScreenUpdating = False
Dim WorkbookMaster As Workbook, WorkbookSlave As String
Dim DataBase, DataBaseFile
Set WorkbookMaster = ActiveWorkbook
WorkbookSlave = Dir(ActiveWorkbook.Path & "\DataBase*.xls")
Set DataBase = Workbooks.Open(ActiveWorkbook.Path & "\" & WorkbookSlave)
Set DataBaseFile = DataBase.Sheets("Data Base File")
DataBaseFile.Copy After:=WorkbookMaster.Sheets(Home)
Workbooks(WorkbookSlave).Close
Application.DisplayAlerts = False
Application.ScreenUpdating = True
End Sub