NewSheet Event Example
This example moves new sheets to the end of the workbook.
Private Sub Workbook_NewSheet(ByVal Sh as Object) Sh.Move After:= Sheets(Sheets.Count) End Sub