IF… the cells which contain the sheet names are contiguous (no blanks in the list) and start at the named range Start and there are blank cells all around this list then this single line should do it for you:
Sheets(Application.Transpose(Range("Start").CurrentRegion.Value)).PrintPreview
If the above conditions don't pertain, then there will be other ways to ensure the list is right.. come back for that. (The code currently does print preview to save paper; you can replace .PrintPreview with .Printout.)