Событие WorkbookNewSheet возникает при добавлении нового листа в открытую рабочую книгу. Синтаксис процедуры обработки является следующим :

Private Sub object_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Obiect)

Параметр Wb - ссылка на рабочую книгу, в которую добавлен лист. Аргумент Sh - вновь созданный лист. Данное событие можно использовать, чтобы удалить вновь созданный рабочий лист, если количество листов в рабочей книге больше заданного

Private Sub object WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)
     If Wb.Worksheets.Count > 6 Then
          MsgBox "Максимальное число листов в рабочей_ книге равно 5."
          Wb.Sh.Delete
     End If
End Sub

Для комментария : kadan@grsu.grodno.by