Displays the
'Page Setup...'
dialog with the header/footer tab selected.
From
here, you can set pre-defined headers and
footers from the drop-downs. (these cannot be
added to), or define your own using the custom
header/footer buttons. You may want to refer
back to the more detailed explanation of page
setup...under the
File menu
VBA
Sub SetHeaderFooter()
With ActiveSheet.PageSetup
.CenterHeader = "This is a title"
'Uses the &P UI variable to set the page #
.CenterFooter = "Page &P"
'The data will be in US formay (mm/dd/yyyy)
' To convert to UK/Europe use
'.RightFooter=Format(Now(),"dd/mm/yyyy hh:mm:ss")
.RightFooter = Now()
End With
End Sub
