setting print area for multiple worksheets at once

  • Thread starter Thread starter annabel
  • Start date Start date
A

annabel

Hello -
Looking for a way to set the print area on a large number of simiarly
formatted worksheets at once. Ideally want to incorporate it into a
macro that does some other basic stuff as well.
Thanks for any suggestions!
 
Good morning Annabel

This code will loop through all your worksheets in a workbook and se
the range to A1:F30.

Sub SetRange()
For Each UsrSht In ActiveWorkbook.Worksheets
UsrSht.PageSetup.PrintArea = "$A$1:$F$30"
Next UsrSht
End Sub

HTH

Dominic
 
Thank you so much for your response. That is just what I needed.
I appreciate your help!
 
Back
Top