Formatting footer

[chadski778]

I would like code to automatically add the current date in each tab of my workbook as a right footer in page set-up. How do i do this without the date changing each time the file is opened? How do you keep the date constant?

 

[John_w]

Hard-code the date if you don't want it to change.

Sub rf()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        ws.PageSetup.RightFooter = "31/08/2011"
    Next
End Sub

Or maybe:

        If ws.PageSetup.RightFooter = "" Then ws.PageSetup.RightFooter = Format(Date, "ddddd")

If want to set it to the current date only the first time the procedure is run (assuming the right footer is empty).

 

[chadski778]

Thank you very much

 

[dpchheda]

Hi All,

Please help in modifying this to make sheet name font to Arial 8 in the footer?

 

[John_w]

Have you tried recording the manual steps with the macro recorder? This should give you a starting point for tweaking the code.

 

[dpchheda]

Thanks John.

Noting steps through macro recorder helped.

I tried using MS VB help feature, but their syntax seems to be wrong from what is actually required.