Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "Laatst opgeslagen: " & Format(Date, "dd-mm-yyyy") & " " & Time & _
vbNewLine & "de boosdoener is " & Application.UserName
End Sub[\Code]
verander center to left of Right