Chapter numbers

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

My spreadsheet/workbook consists of approx. 80 worksheets. Each worksheet
should be considered a page. I have inserted sequential page numbers in the
footer. However, is there a way I can insert a chapter number before each
page number, i.e., 1-1, 1-2, 1-3, etc? And if I can be even more greedy, is
there a way I can "break" the chapter numbers within my workbook, so that the
first 40 pages will paginate as 1-2, 1-2, 1-3, etc., and the last 40 pages
will paginate as 2-1, 2-2, 2-3, etc.?
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.LeftFooter = .Index \ 40 + 1 & "-" & .Index
End With
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
Back
Top