Macro Help

[cvgairport]

I am trying to craft a macro that will print assorted sheets in a single
excel file. I have written the one below but it won't run. Any help would
be appreciated.

Amy

Sub Final()
'
' Final Macro
' Macro recorded 10/26/2009 by
'
' Keyboard Shortcut: Ctrl+f
'
Sheets("Dashboard").Select
PrintOut Copies:=1, Collate:=True
Sheets("Parameters").Select
PrintOut Copies:=1, Collate:=True
End Sub

 

[Jacob Skaria]

Try the below. You can add more sheets to the array

Sub Final()
Sheets(Array("Dashboard", "Parameters")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

If this post helps click Yes

 

[cvgairport]

Worked great! Thanks!

Try the below. You can add more sheets to the array

Sub Final()
Sheets(Array("Dashboard", "Parameters")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

If this post helps click Yes