Print Multiple Worksheet Print Macro

Solved: I figured it out. Maybe this will help someone else.

---

Sub Print_Each_Document()
'
' Print_Each_Document Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
    Sheets("Batch Review Checklist").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Pre-Operative Form").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Production Control Record").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Sensory Evaluation").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("Silliker SARF").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("Print Control").Select
End Sub