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