Sub HideSelectedSheets()
 On Error GoTo Terminator
 Dim myChoice as String
 myChoice = MsgBox("Do you want to hide the selected sheets ? ", vbQuestion + vbYesNo)
 If Not myChoice = vbYes Then Exit Sub
 ActiveWindow.SelectedSheets.Visible = False
 Exit Sub
Terminator: MsgBox Err.Description
End Sub