Printing Selected worksheets but exclude the sheet "Sheets"
 

Hi,

i have a macro below on the sheet "Sheet" to print the selected worksheets
but i don't want it to print the sheet "Sheets". How do I go about it? Thanks.

Dim i As Integer
isheet2 = Worksheets("Final Pivot").Index - 1

For i = Sheets("MLog_Int_SG").Index To (Sheets.Count - 14)


Sheets(i).Select False
Next i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False

Printing Selected worksheets but exclude the sheet "Sheets"
 

Sub ShetCollect()
For ws = Sheets("MLog_Int_SG").Index To Sheets.Count - 14
If Sheets(ws).Name < "Sheets" Then
sh = sh & Sheets(ws).Name & Chr(44)
End If
Next
sh = Left(sh, Len(sh) - 1)
Sheets(Split(sh, ",")).Select
'Selection.PrintPreview
'ActiveWindow.SelectedSheets.PrintPreview
End Sub


"Dolphinv4" skrev:

Hi,

i have a macro below on the sheet "Sheet" to print the selected worksheets
but i don't want it to print the sheet "Sheets". How do I go about it? Thanks.

Dim i As Integer
isheet2 = Worksheets("Final Pivot").Index - 1

For i = Sheets("MLog_Int_SG").Index To (Sheets.Count - 14)


Sheets(i).Select False
Next i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=False