Excel VisualBasic Script

Sub workbook_BeforePrint(Cancel As Boolean)
   Select Case ActiveSheet.Name
          Case "Sheet1", "Sheet2"
          Cancel = True
          MsgBox "Sorry, you cannot print this sheet from this workbook", vbInformation
   End Select
End Sub