Sub Print_All_Sections()
'
' Print_All_Sections Macro
' Macro recorded 05/07/2008 by Log-In
'
' Keyboard Shortcut: Ctrl+p

MsgBox "This Will Print All Sections Sheets", vbYesNo
If vbresponce = No Then Exit Sub

Sheets(Array("Not Here", "transport", "forklift", "Carousel", "B & L",
"C & D", _
"Managers", "Admin", "Tipping", "E", "F", "G", "H", "W W
Irish")).Select
Sheets("W W Irish").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Control").Select
ActiveWindow.SmallScroll Down:=-12
End Sub


want the code to cancel printing if no is clicked but print all if yes is
clicked but its not playing

any ideas