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