Here is the code:
With Sheets("Pricing Summary").PageSetup
.RightFooter = "&""Arial,Italic""&8Report Date:" & datestring
Hope this will help you.
I am using a macro that asks for the date to put in a footer, as follows:
datestring = InputBox("Enter date to be printed in footers." & Chr(13) & _
"Leave blank if current date is to be used.", _
"Set Up Footer Date")
If Not datestring = "" Then
ActiveSheet.PageSetup.RightFooter = datestring
How do I also specify the font (Arial) and font size (10) to use for this text?
Try using the macro recorder to generate the necessary code. I tried it and got the following (not using your example exactly):
HTHVB:With ActiveSheet.PageSetup .LeftFooter = "&""Arial Black,Bold""&10hello" End With
<a href="http://www.mrexcel.com/relayforlife.shtml" target="new"><img src="http://www.myimgs.com/data/vonpookie/anne_relay.gif"></a>
There are currently 1 users browsing this thread. (0 members and 1 guests)