Tab printing Macro

[=?iso-8859-1?q?Luis_A=2E_V=E1zquez?=]

I work on a work on a workbook that varies on the amount of tabs each
day. Im trying to make a macro that would print the amount of tabs in
each day, with the exception of sheet1.

Any Ideas?

 

[Guest]

How about

Thisworkbook.Printout

and throw away the sheet you don't want.


Just joking:

Sub AAA()
Dim sh As Worksheet
Dim sh1 As Worksheet
Set sh1 = ActiveSheet
Worksheets(2).Select
For Each sh In Worksheets
Select Case sh.Name
Case Worksheets(1).Name
Case Else
sh.Select False
End Select
Next
ActiveWindow.SelectedSheets.PrintOut
sh1.Select
End Sub

 

[=?iso-8859-1?q?Luis_A=2E_V=E1zquez?=]

How about

Thisworkbook.Printout

and throw away the sheet you don't want.

Just joking:

Sub AAA()
Dim sh As Worksheet
Dim sh1 As Worksheet
Set sh1 = ActiveSheet
Worksheets(2).Select
For Each sh In Worksheets
Select Case sh.Name
Case Worksheets(1).Name
Case Else
sh.Select False
End Select
Next
ActiveWindow.SelectedSheets.PrintOut
sh1.Select
End Sub

Hummm, trying to make it work but im getting error on the "sh.Select
False" line.

thanks anyway Tom.