Novice i makro programmering i Excel

Jeg kan ikke få denne makro til at indsætte datoen i Sidefoden i Højrer side.

Så kan en eller anden ikke lige rette den for mig :o)

Sub Sidefod()
'
Dim wks As Worksheet
    For Each wks In ActiveWorkbook.Worksheets
        wks.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
        wks.PageSetup.CenterFooter = ActiveWorkbook.Date
       
Next
'
End Sub




Hilsen
IDa