Hallo,

Kan iemand mij helpen met het volgende: ik heb een code geschreven om excel files te laden in een bepaald model. Ik krijg echter een error melding (438: object doesnt support this property..' en kom er zelf niet uit. Het gaat om de volgende code hieronder weergegeven. Het stuk in bold ​is waar de error zit volgens excel.. Kan iemand mij uit de brand helpen? Thanks!

Sub Import_Quoations()

Dim directory As String, fileName As String, sheet As Worksheet, total As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

directory = "D:\VU\Decision Making\Final Model\"
fileName = Dir(directory & "Carrier*?")

Do While fileName <> ""

Workbooks.Open (directory & fileName)

For Each sheet In Workbooks(fileName).Worksheets
total = Workbooks("Canon_Final_Model0.1").Worksheets.Count
Workbooks(fileName).Worksheets(sheet.Name).Copy _
after:=Workbooks("Canon_Final_Model0.1")(total)
Next sheet

Workbooks(fileName).Close

fileName = Dir()

Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True


End Sub