Macro Help

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I wrote the following macro to add a custom footer. However, when I run it,
lose my print range. Can anyone tell me what to add/change to avoid this?
Thank you!

Sub UpdateFooter()
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftFooter = "&8" & ActiveWorkbook.FullName
.CenterFooter = "&8&A"
.RightFooter = "&8&D &T"
End With
End Sub
 
It looks like you need to simply delete the line:
ActiveSheet.PageSetup.PrintArea = ""

-Ikaabod
 
Thank you - that worked. I knew it was something simple, but I only know
enough about macros to be dangerous!
 
Back
Top