Counting Worksheets

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jnf40 - 14 Sep 2007 20:18 GMT

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

Reply to this Message

Mike Fogleman - 14 Sep 2007 21:11 GMT

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

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

Reply to this Message