Without seeing your code that prints the 15 sheets it's a bit difficult to
answer. However, The code below will print x copies of each sheet in orde
which you should be able to adapt.

Sub mariner()
numbertoprint = InputBox("How many copies of each")
Dim sh As Worksheet
For x = 1 To numbertoprint
For Each sh In ThisWorkbook.Worksheets
sh.Select
ActiveSheet.PrintOut
Next sh
Next
End Sub


Mike

"KateB" wrote:

I have a workbook from which I need to print 15 worksheets. My macro works
fine to do this, however I now need to print more than one copy but would
like them printed in order, i.e. page 1, page 2, page 3 etc 5 times rather
than 5x page 1, 5x page2, etc. How do I add this in? And can I change the
number printed each time?

I'm a complete novice with VBA and my only knowledge is cannibalisation of
existing macros, so simplicity would be appreciated!!

Many thanks
Kate