Создание списка листов - VB

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

Помогите создать список имен листов в книге Excel. Не пинай те, очень надо сделать до вечера. Хелппппп.

Решение задачи: «Создание списка листов»

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

                            <font color="blue">Sub</font> d()
    <font color="blue">Dim</font> sh <font color="blue">As</font> Worksheet
    i = <font color="darkblue"><b>1</b></font>
    <font color="blue">For</font> <font color="blue">Each</font> sh <font color="blue">In</font> ThisWorkbook.Worksheets
        Cells(i, <font color="darkblue"><b>1</b></font>) = sh.<font color="blue">Name</font>
        i = i + <font color="darkblue"><b>1</b></font>
    <font color="blue">Next</font> sh
<font color="blue">End</font> <font color="blue">Sub</font>
                        