D Dave Peterson Sep 10, 2007 #2 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)
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)
