If you select all the sheets in the order you want them printed (grouped
should appear at the top) and each sheet has Footers for page numbers, then
you should get sequential page numbers across all printed pages.

--
Regards,
Tom Ogilvy

"Nat Maxwell" wrote in message
...
Could someone help me with this one please?

I received a file with many worksheets and a macro which will print out
only
selected worksheets. The request was to insert page numbers at the bottom
of
each page/worksheet to be printed out so that users could browse/leaf
through
the printed pages by numbers.
The problem is, regular option of inserting page numbers does not serve
the
purpose of distinguishing between the pages because pagination restarts
for
each worksheet at 1.
And inserting tab names into the footer apparently is not what the user
wants either.
Is there a way to do this?
Would much appreciate help with this one!
The presentation is in 50 minutes...

Sub ACpackage()
'
' ACpackage Macro
' Macro recorded 10/23/2003 by yvonne_behan
'
' Keyboard Shortcut: Ctrl+Shift+Y
'
Columns("E:E").ColumnWidth = 29.14
Range("E11").Select
ActiveCell.Offset(2, 0).Range("A1").Select
ActiveWindow.ScrollWorkbookTabs Sheets:=11
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Discrete Op margin vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Q Discrete vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-2
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Discrete Q vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=6
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Op margin vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q Summary vs Budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q actual vs budget").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=11
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Discr Q Op margin vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
Sheets("Q Discrete Summary ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-5
Sheets("Discrete Q vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=8
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Op margin vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
ActiveWindow.ScrollWorkbookTabs Sheets:=-4
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets("Q Summary ytd").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("Q actual vs prior yr").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub