Remove print area from multiples pages

L

Linda

I have a workbook with 183 pages and need to remove print areas from all
pages. Is there a way to do this all at once?
 
D

Dave Peterson

Maybe you could use a macro:

Option Explicit
Sub testme()
Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets
wks.PageSetup.PrintArea = ""
Next wks
End Sub

If you're new to macros:

Debra Dalgleish has some notes how to implement macros here:
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)
 
Top