Objekt erforderlich Fehler 424

Sub FußzeileSpezial()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
With Blatt.PageSetup
.BottomMargin = 56
.FooterMargin = 42
.LeftFooter = "&B" & _
Application.WorksheetFunction.Rept("_", 60) & vbCr & _
"Erstellungsdatum:   " & _
Active.Workbook.BuiltinDocumentProperties _
("Creation date") & vbCr & "Letzte Änderung:   " & _
Active.Workbook.BuiltinDocumentProperties _
("last save time") & vbCr & "Ersteller der Mappe: " & _
Active.Workbook.BuiltinDocumentProperties("author") & _
vbCr & "Dateiname und Pfad: " & ActiveWorkbook.FullName
End With
Next Blatt
End Sub