In diesem Beispiel werden neue Blätter an das Ende der Arbeitsmappe verschoben.
Private Sub Workbook_NewSheet(ByVal Sh as Object) Sh.Move After:= Sheets(Sheets.Count) End Sub