Page Break Save

[tc]

Hi. Is it possible to save each page in the page break view in a new
workbook?

 

[Dave Peterson]

You could start with Ron de Bruin's macro:
http://www.rondebruin.nl/hpagebreaks.htm

If you really want a new workbook, then I think (untested) that you'll have to
make a change.

Change this section:

With Asheet.Parent
Set Nsheet = Worksheets.Add(after:=.Sheets(.Sheets.Count))
End With

to

Set Nsheet = workbooks.add(1).Worksheets(1)