If you want to prevent users from printing only particular sheets in your workbook, use this similar code instead
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