Prevent More Sheets

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
   Application.DisplayAlerts = False
   Call MsgBox("You cannot add any more worksheets to this workbook", vbInformation + vbOKOnly)
   Sh.Delete
   Application.DisplayAlerts = True
End Sub

© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrev