Macro Help

[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

 

[Ikaabod]

It looks like you need to simply delete the line:
ActiveSheet.PageSetup.PrintArea = ""

-Ikaabod

 

[Guest]

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