Or use a one liner
http://www.rondebruin.nl/print.htm#Print


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JW" wrote in message oups.com...
Su
Sub code()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.PrintOut
Next sht
End Sub

HTH

prahz wrote:
Can anyone help me with this newbie question:

I need a macro that prints all tabs in a given workbook. Can anyone
provide me the code please?

Thanks,

Paul