Автоматическое создание листа с названием текущего месяца из шаблона

[ru3000]

Есть книга в которой все листы названы каждый своим месяцем и один лист с названием "Шаблон". Надо чтобы, при открытии книги, формула проверяла бы названия листов и, при отсутствии листа с названием текущего месяца, копировала бы лист с названием "Шаблон" в конец книги и присваивала бы этой копии имя текущего месяца.
Спасибо.

[SAS888]

В модуль "Эта книга" вставьте код:

Private Sub Workbook_Open()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name = MonthName(Month(Date)) Then Exit Sub
    Next
    Sheets("Шаблон").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = MonthName(Month(Date))
End Sub

[viter.alex]

Я для себя делал подобную штуку. Но я не перебирал все листы, а сравнивал месяц текущей даты с месяцем даты последнего сохранения. И если они не совпадали, то создавал новый лист с названием месяца и года.

If Month(ThisWorkbook.BuiltinDocumentProperties("Last Save Time")) <> Month(Now) Then
        ActiveWorkbook.Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
        ActiveWorkbook.Sheets(Sheets.Count).Name = MonthName(Month(Now)) & " " & Year(Now)

[ru3000]

Спасибо большое за помощь.