Дополнение Excel-файлов новым листом - VB

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

Помогите пожалуйста написать макрос. Есть множество одинаковых по структуре файлов (каждый уже заполнен по отдельному клиенту), которые находятся в определенной папке. Эти файлы необходимо дополнить одинаковым рабочим листом, шаблон которого разработан. Шаблон нужно вставить последним листом рабочей книги в каждый файл. Заранее большое спасибо, очень не хочется это делать руками.

Решение задачи: «Дополнение Excel-файлов новым листом»

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

                            <font color="blue">Sub</font> lisichka2009()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

<font color="blue">Set</font> shablon = ThisWorkbook.Sheets(<font color="teal">"Shablon"</font>)

<font color="blue">Dim</font> sName <font color="blue">As</font> <font color="blue">String</font>

sName = Dir(<font color="teal">"c:\!!\*.xls"</font>)

<font color="blue">Do</font> <font color="blue">While</font> sName <> <font color="teal">""</font>
<font color="blue">Set</font> target = Workbooks.<font color="blue">Open</font>(Filename:=<font color="teal">"c:\!!\"</font> & sName, ReadOnly:=False)
shablon.Copy after:=target.Sheets(ActiveWorkbook.Sheets.Count)
Application.StatusBar = <font color="teal">" Working On File "</font> & sName <font color="00AA00">' визуализация работы</font>
target.SaveAs <font color="teal">"c:\!!\"</font> & sName
target.<font color="blue">Close</font>
sName = Dir
<font color="blue">Loop</font>

Application.StatusBar = False <font color="00AA00">'сбрасываем визуализацию работы</font>
Application.DisplayAlerts = True
Application.ScreenUpdating = True
<font color="blue">End</font> <font color="blue">Sub</font>

                        