Excel 2007 VBA Help With Previewing Worksheets

Hello,

Is there an easier way to shorten the code to select and preview multiple worksheets in a workbook. I have about 60 worksheets and want to select 50 of them to preview - below is sample code I'm using:

Sheets("Smith").Activate
Sheets(Arry("Smith", "Todd", "Fisher", "Quick", "Blown", "Jones", "Wayard")).Select
ActiveWindow.SelectedSheets.PrintPreview

I actually have about 50 worksheets I'm referencing to select all of them and preview them using a button.

Thanks much.
MAB

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Additionally, Please read the rules about code tags and add them to your posting.


(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)