Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Preventing Users from Inserting More Worksheets

Private Sub Workbook_NewSheet(ByVal Sh As Object)       Application.DisplayAlerts = False       MsgBox "Sorry, you cannot add any more sheets to this workbook", _       vbInformation       Sh.Delete       Application.DisplayAlerts = True End Sub