Excel VisualBasic Script

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