Подобная хрень требовалась мне (буквально на днях!!!!). Тоже ПОНИМАШЬ оптимизирую программу, шоб работала ешо быстрее.
Мне надо было в одной книге создавать кучу листов (в зависимости от параметра N передаваемого в процедуру). Может Вы знаете, а может и нет про процедуру Sheets(i).Copy after:=Sheets(i) (или before - если перед i-й страницей). Я создаю первую страницу в книге, инициализирую (IniSheet() - та же установка параметров страницы). А далее копирую скока угодно новых страниц в книге!!!! Тоже получается быстро (кроме инициализации первой).

Private Sub Itog_Step_Small(Path$, S$, ByVal NewName$, Tip$, N%)
Const S1$ = "Реестр Федерального казначейства по "
..............
Set xlBook = xlApp.Workbooks.Add
Set xlRange = xlBook.ActiveSheet
IniSheet xlRange, Tip
With xlBook
For I = 1 To N
If Tip = "К_" Or Tip = "_К" Then
S2 = S1 & PredstavAltern(I) & " (Кредит)"
Else
S2 = S1 & PredstavAltern(I) & " (Дебет)"
End If
With .Sheets(I)
.Cells(1, 1) = S2
.Name = PredstavAltern(I)
End With
If I < N Then .Sheets(1).Copy after:=.Sheets(I)
Next I
End With
..............
End Sub


P.S.: Надо попробовать Application.ExecuteExcel4Macro (может в натуре будет ешо быстрее работать!!!)