Переименовать имена в зависимости от квартала файла

[valerij]

В файле 1_КВ.xlsm есть три листа - Январь, Февраль, Март, а также эти имена есть в яч [k1] каждого листа.
Как сделать, что бы при переименовании файла, все эти имена, автоматом менялись?
Сейчас я в ручную меняю имя месяца в [k1] каждого листа, что бы переименовать листы.
1_КВ.xlsm - Январь, Февраль, Март
2_КВ.xlsm - Апрель, Май, Июнь
3_КВ.xlsm - Июль, Август, Сентябрь
4_КВ.xlsm - Октябрь, Ноябрь, Декабрь

Спасибо.

[Step_UA]

Private Sub Workbook_Open()
    Base = Left(ThisWorkbook.Name, 1) - 1
    For i = 1 To 3
        Sheets(i).Name = MonthName(Base * 3 + i)
    Next
End Sub

[valerij]

Сообщение от Step_UA

Private Sub Workbook_Open()
    Base = Left(ThisWorkbook.Name, 1) - 1
    For i = 1 To 3
        Sheets(i).Name = MonthName(Base * 3 + i)
    Next
End Sub

Супер.
Добавил строчку и полный, гут.
Sheets(i).[k1] = MonthName(Base * 3 + i)

Спасибо.

---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[valerij]

Во, блин.
А как мне из этого, получить № месяца?
Sheets(i).[k1] = MonthName(Base * 3 + i)

Даже так не идёт, получаю #ЗНАЧ!.
=МЕСЯЦ(K1)

[Казанский]

Base * 3 + i это и есть № месяца.

[valerij]

Сообщение от Казанский

Base * 3 + i это и есть № месяца.

Да, точно. Спасибо.

Но вот это моя строчка
Sheets(i).[k1] = MonthName(Base * 3 + i)

пишет значение в К1 не в формате даты, поэтому программа далее не работает.
Можно как то формат даты сделать, т.е. что бы имя там, было месяца, а в строке формул yy.yy.yy?

[valerij]

Сделал, обходными путями, но всё работает. Может можно и упростить, но???
Теперь в [k1] во всех трёх листах, отображается как мне надо.

Base = Left(ThisWorkbook.Name, 1) - 1
    For i = 1 To 3
        Sheets(i).Name = MonthName(Base * 3 + i)
        Sheets(14).Cells(3, i + 9) = MonthName(Base * 3 + i)
        Sheets(15).Cells(2, i + 8) = MonthName(Base * 3 + i)
    Next
    am = Base * 3 + 1: bm = Base * 3 + 2: cm = Base * 3 + 3

    If Sheets(15).Cells(2, 9) = MonthName(Base * 3 + 1) Then Sheets(1).[k1] = "" & am & "/1/2013"
        Sheets(1).Select
        Range("K1").Select
        ActiveCell.FormulaR1C1 = "" & am & "/1/2013"
    If Sheets(15).Cells(2, 10) = MonthName(Base * 3 + 2) Then Sheets(2).[k1] = "" & bm & "/1/2013"
        Sheets(2).Select
        Range("K1").Select
        ActiveCell.FormulaR1C1 = "" & bm & "/1/2013"
    If Sheets(15).Cells(2, 11) = MonthName(Base * 3 + 3) Then Sheets(3).[k1] = "" & cm & "/1/2013"
        Sheets(3).Select
        Range("K1").Select
        ActiveCell.FormulaR1C1 = "" & cm & "/1/2013"

[kuklp]

Валер, кончай тормозить. Ты ж вроде не новичок. Нафига тебе эти селекты?

        Sheets(1).Range("K1").Formula = am & "/1/2013"

[Step_UA]

    Base = (Left(ThisWorkbook.Name, 1) - 1) * 3
    For i = 1 To 3
        tmp = MonthName(Base + i)
        Sheets(i).Name = tmp
        Sheets(14).Cells(3, i + 9) = tmp
        Sheets(15).Cells(2, i + 8) = tmp
        Sheets(i).[k1] = DateSerial(Year(Date), Base + i, 1)
    Next

[valerij]

Сообщение от kuklp

Валер, кончай тормозить. Ты ж вроде не новичок.

Да опять, новичок.
Всё нафиг по забывал.

Всё, что вы с Step_UA по казали, буду пробовать.

Постараюсь, но могёт ещё потревожу, ОК?

Спасибо.