Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = "&""Verdana""&8 " & _
Format(Date, "dd-") & _
StrConv(Format(Date, "mmm-yy"), vbProperCase)
End Sub

--
Regards,
Tom Ogilvy




"Thomas" wrote in message
oups.com...
Hi,

I have a supplementing question:
Thanks to your help i now have the date appearing as wanted, but i
would also like to change the font and fontsize of the date. I found
out that the second line below changes the font/size, but unfortunately
the two lines overrule each other. So i want to combine them into one
line somehow. I have tried all kinds of syntaxes but without succes.
Can anyone help?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = Format(Date, "dd-") &
StrConv(Format(Date, "mmm-yy"), vbProperCase)
ActiveSheet.PageSetup.RightFooter = "&""Verdana""&8 "
End Sub

Thx again
Thomas