Counting Worksheets

[Guest]

Is there a way to have the workbook count sheets and then have a message pop
up when it reaches a certain number?

 

[Mike Fogleman]

Something like this put in the ThisWorkbook code module:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
If Sheets.Count > 3 Then MsgBox "Too many sheets."
End Sub

Mike F