Try the below

Sub Macro()
Dim intTemp As Integer
For intTemp = Sheets("Start").Index To Sheets("End").Index
Sheets(intTemp).PrintOut Copies:=1, Collate:=True
Next intTemp
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Ted" wrote:

I need to print all worksheets between sheets named "Start" and "End". Does
anyone have a macro to do this?