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

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
"jnf40" <(E-Mail Removed)> wrote in message
news:B55144E1-E4A8-45D2-A4B9-(E-Mail Removed)...
> Is there a way to have the workbook count sheets and then have a message
> pop
> up when it reaches a certain number?