HI all,
I have a short macro that runs quick, when I added in the below it hangs and almost looks like it's going into a "not responding" mode. Is there something in the code that is causing this, or is this normal?
Thank you
I have a short macro that runs quick, when I added in the below it hangs and almost looks like it's going into a "not responding" mode. Is there something in the code that is causing this, or is this normal?
Thank you
VBA Code:
myRange = Range("A1:E" & lr).Address
ActiveSheet.PageSetup.PrintArea = myRange
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.2)
.BottomMargin = Application.InchesToPoints(0.2)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.CenterHorizontally = True
.PaperSize = xlPaperLetter
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With