Macro Help
 

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

Macro Help
 

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

-Ikaabod

Erica Wrote:
I wrote the following macro to add a custom footer. However, when I ru
it,
lose my print range. Can anyone tell me what to add/change to avoi
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 Su

--
Ikaabo
-----------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...fo&userid=3337
View this thread: http://www.excelforum.com/showthread.php?threadid=53595

Macro Help
 

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

"Ikaabod" wrote:


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

-Ikaabod

Erica Wrote:
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
------------------------------------------------------------------------
Ikaabod's Profile: http://www.excelforum.com/member.php...o&userid=33371
View this thread: http://www.excelforum.com/showthread...hreadid=535950