Ik dacht aan het volgende. Ik ga ervan uit dat de verzamel excel werkboek het bestand is dat de code bevat. Loop door de code met F8 zodat je kan zien waar het misschien fout gaat (kan niet testen).
Sub Import_Quoations()'filename, sheet, total zijn mogelijks keywords
'Dim directory As String, fileName As String, sheet As Worksheet, total As Integer
Dim mydir As String, myfile As String, mysheet As Worksheet, mytotal As Long, mywb As Workbook
'bestemmingsworkbook om naartoe te copiëren
Dim totalwb As Workbook, nosheets As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'directory
mydir = "D:\VU\Decision Making\Final Model\"
'bestanden
myfile = Dir(directory & "Carrier*?")
'zet workbook voor bestemming in een holder. was actieve werkboek op het moment
'dat de code werd gestart.
Set totalwb = ActiveWorkbook
'zolang er bestanden zijn die aan criteria voldoen
Do While fileName <> ""
'vul mywb met eerste bestand
Set mywb = Workbooks.Open(mydir & myfile)
'ga door al de worksheets in een workbook en nosheets
'wordt gebruikt als index
For nosheets = 1 To mywb.Worksheets.Count
'zet een holder voor 1ste worksheet
Set mysheet = mywb.Worksheets(nosheets)
'copieer worksheet naar bestemmeling als laatste werkblad
mysheet.Copy after:=totalwb.Worksheets(Worksheets.Count)
'volgende worksheet in bestand
Next nosheets
'sluit het bestand
mywb.Close
'ga naar volgende bestand
myfile = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Charlize
ps.: Waarom post je dit ook in het engelse forum ?