Sometimes you just have to shake your head and submit to the pain.
Welcome to the MrExcel board!Is there a way to change the font size when you do this, it is coming up as 10 pt, but I want 6 pt?
I used a variation of the code suggested above: ActiveSheet.PageSetup.LeftFooter = Format(Now, "m d")
Thanks
-LL Daley
ActiveSheet.PageSetup.LeftFooter = "&6 " & Format(Now, "m d")
Welcome to the MrExcel board!Is there a way to use the current date and time with custom formatting?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Format(Now, "m/d/yy hh:mm")
End Sub
Hi cmc
You need to use VBA code like this
Code:Sub Footer() With ActiveSheet.PageSetup .CenterFooter = Format(Date, "dd mmmm yyyy") End With End Sub
Welcome to the MrExcel board!How do I add other elements to the footer? When I use the sample below, it wipes out my custom footer. I am trying to put in the left footer the &[Path]&[File] - &[Date] - &[Time], with the date and time formatted as mm.dd.yy - hh:mma/p. I also want the font to be 8pt.
Sub myFooter()
ActiveSheet.PageSetup.LeftFooter = "&8&Z&F - " & Format(Now, "mm.dd.yy - hh:mm am/pm")
End Sub
Welcome to the MrExcel board!
Try
Code:Sub myFooter() ActiveSheet.PageSetup.LeftFooter = "&8&Z&F - " & Format(Now, "mm.dd.yy - hh:mm am/pm") End Sub