Try this idea

Sub PrintSheetsByIndexSAS()
fs = Sheets("formula").Index
ls = Sheets("end").Index
'MsgBox fs
'MsgBox ls
For i = fs To ls
Sheets(i).PrintPreview
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"fredrik" wrote in message
...
I have several workbooks with differently named worksheets. The one thing
they all have in common is that sheet no 1 is called "Formula" and the
last
one called "End".
I'm looking for a macro to move between sheets and print them all between
the first and the last sheet.
Can anyone help?