Как переименовать лист макросом?

[Pavarotti]

Здравствуйте!

Подскажите пожалуйста как переименовать лист с помощью макроса.
В книге имя у каждого листа представляет собой "Week(1)", где меняется только цифовая часть, т.е листы выглядят как Week(2), Week(3) и т.д.
Попробовал след. код, но не срабатывает. Не могу правильно описать, чтобы макрос искал в формулах текущего листа имя пред-предыдущего листа и менял его на предыдущий.

Private Sub CommandButton1_Click()
 
    Cells.Replace What:="Week("&MID(CELL("filename",A1))-1, Replacement:="Week("&MID(CELL("filename",A1))"
 
 
End Sub

Подскажите, что я делаю неправильно.

[The_Prist]

Dim sOldName As String, sNewName As String
sOldName = ActiveSheet.Previous.Previous.Name
sNewName = "Week(" & Val(Mid(sOldName, InStr(sOldName, "(") + 1)) + 1 & ")"
ActiveSheet.UsedRange.Replace sOldName, sNewName, lookat:=xlPart

[Pavarotti]

Не хочет работать. Ругается на строчке
sOldName = ActiveSheet.Previous.Previous.Name

[The_Prist]

Да? Ну так может нет этого предпредыдущего листа? Сколько листов-то в книге? Какой активный? Сколько листов перед активным?
И еще: когда пишите, что ругается - не мешало бы писать текст ошибки. Так быстрее получите грамотный ответ вместо догадок.

[Pavarotti]

Аааа! Всё въехал.
Предложенный метод отлично работает, когда листы упорядоченны слева-направо по возрастанию порядкового номера. А если же они расположенны наоборот?

[The_Prist]

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

Аааа! Всё въехал.
Предложенный метод отлично работает, когда листы упорядоченны слева-направо по возрастанию порядкового номера. А если же они расположенны наоборот?

Что значит наоборот? Прочитайте свое первое сообщение:

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

чтобы макрос искал в формулах текущего листа имя пред-предыдущего листа и менял его на предыдущий

Ключевые слова: пред-предыдущий, предыдущий

А если нужны следующие, то используйте вместо Previous - Next.

[Pavarotti]

Хотел сказать, что "пред-предыдущий" имеется ввиду не то какой лист где стоит и когда был создан, а когда порядок листов определяется их порядковыми номерами, т.е. Week(1), Week(2), Week(3) могут потенциально стоять где и как угодно в книге, а excel понимал и принимал что Week(1) это лист предшествует Week(2), Week(2) предшествует Week'y(3) и т.д.
Если такой достаточно сложно реализовать. То может быть реалищовать тот же способ что вы подскзали, только наоборот.

[Pavarotti]

Ну в любом случае спасибо вам большое!
Вы очень мне помогли. Я просто немного изменю свой проект, чтобы успешно внедрить ваш способ.
Еще раз большое спасибо за помощь!

[The_Prist]

Ну вот теперь все встало на свои места. Тестируйте.

    Dim wsSh As Worksheet, sOldName As String, sNewName As String
    Dim lOne As Long, lTwo As Long

    For Each wsSh In Sheets
        If InStr(wsSh.Name, "Week") Then
            sOldName = wsSh.Name
            lOne = Val(Mid(sOldName, InStr(sOldName, "(") + 1))
            If lTwo < lOne Then lTwo = lOne
        End If
    Next wsSh
    If lTwo > 1 Then
        lOne = lTwo - 1
    Else
        MsgBox "Нет листа для переименования": Exit Sub
    End If
    sOldName = "Week(" & lOne & ")"
    sNewName = "Week(" & lTwo & ")"
    ActiveSheet.UsedRange.Replace sOldName, sNewName, lookat:=xlPart

[SAS888]

Возможно, что Ваш вопрос связан с этой темой? Посмотрите.