Новый лист в книге Excel на произвольном месте - VB

Формулировка задачи:

Здравствуйте, мне необходимо создать лист с определенным именем, который бы появлялся не в начале книги, а где-нибудь в конце.
Добавляю лист
Sheets.Add.Name = "aaa"
Если пробовать работать с аргументами функции Add, то пишет постоянно ошибку, что все failed. :(
Подскажите, пожалуйста, примером, как это можно реализовать.
Заранее спасибо.

Решение задачи: «Новый лист в книге Excel на произвольном месте»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> test()
<font color="blue">Set</font> aTarget = ActiveWorkbook.Sheets.Add(Before:=Worksheets(<font color="darkblue"><b>1</b></font>))
aTarget.<font color="blue">Name</font> = <font color="teal">"aaa"</font>
<font color="blue">Set</font> bTarget = Worksheets.Add(after:=Worksheets(ActiveSheet.Index))
bTarget.<font color="blue">Name</font> = <font color="teal">"bbb"</font>
<font color="blue">Set</font> cTarget = ActiveWorkbook.Sheets.Add(after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count))
cTarget.<font color="blue">Name</font> = <font color="teal">"ccc"</font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        