untested but try

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
myarray=Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")
for each w in myarray
w.print
next w
Application.ScreenUpdating = True
End Sub

--
Don Guillett
SalesAid Software

"pano" wrote in message
oups.com...
Hi, I would like to join these together, but have the second macro
only apply to the sheets
monback,tuesback,wedback,thursback,fridback,satbac k as they are the
only sheets that may have two pages to print. The print button will be
on a sheet called starta.

Thanks code below....

Sub PrintMontoFrid()
'Print out End Of Week Stats
Application.ScreenUpdating = False
Sheets(Array("monday", "monback", "tuesday", "tuesback",
"wednesday", "wedback", "thursday", "thurback", "friday", "fridback",
"saturday", "satback", "weekly")).Select
ActiveWindow.SelectedSheets.PrintOut copies:=1
Sheets("starta").Select
Application.ScreenUpdating = True
End Sub


Sub Print1or2pages()
If Range("total1") 0 Then ActiveSheet.PrintOut From:=1, To:=1
If Range("total2") 0 Then ActiveSheet.PrintOut From:=2, To:=2
End Sub