Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
directory = "c:\test\"
fileName = Dir(directory & "*.xl??")
Do While fileName <> ""
	Workbooks.Open (directory & fileName)
	For Each sheet In Workbooks(fileName).Worksheets
    		total = Workbooks("import-sheets.xls").Worksheets.count
    		Workbooks(fileName).Worksheets(sheet.Name).Copy _
    			after:=Workbooks("import-sheets.xls").Worksheets(total)
	Next sheet
	Workbooks(fileName).Close
	fileName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True