Macro - Print sheets between two marker sheets

[RichJH]

Hello,

I have multiple files with varying working and backup sheets but I would like to create a macro that will print the main group of tabs which will always vary in actual names.

My initial thought was to create marker workbooks named 'start' and 'end' for example that would mark the required tabs for ease of selection.

Can I create a macro (to link to button) that will select all the tabs between these to be ready for printing?

Cheers

 

[Peter_SSs]

My initial thought was to create marker workbooks named 'start' and 'end' for example that would mark the required tabs for ease of selection.

Can I create a macro (to link to button) that will select all the tabs between these to be ready for printing?

See if this does what you want.

Sub Select_Sheets()
  Dim i As Long
  
  Sheets(Sheets("start").Index + 1).Select
  For i = Sheets("start").Index + 2 To Sheets("end").Index - 1
    Sheets(i).Select Replace:=False
  Next i
End Sub

 

[RichJH]

See if this does what you want.

Sub Select_Sheets()
  Dim i As Long
  
  Sheets(Sheets("start").Index + 1).Select
  For i = Sheets("start").Index + 2 To Sheets("end").Index - 1
    Sheets(i).Select Replace:=False
  Next i
End Sub

Perfect thank you, what would the best way to unselect these sheets after printing, would like to prevent multiple sheet cells changes?

 

[Peter_SSs]

Perfect thank you, what would the best way to unselect these sheets after printing, would like to prevent multiple sheet cells changes?

That is a very good idea.

Perhaps something like this

Sub Select_Sheets()
  Dim i As Long
  
  Sheets(Sheets("start").Index + 1).Select
  For i = Sheets("start").Index + 2 To Sheets("end").Index - 1
    Sheets(i).Select Replace:=False
  Next i
  
  ActiveWindow.SelectedSheets.PrintOut
  
  Sheets(Sheets("start").Index + 1).Select Replace:=True
End Sub

 

[RichJH]

Thank you

 

[Peter_SSs]

Thank you

You're welcome.