Увеличить значение диапазона на 1 в цикле

Question

Моя цель - переименовать многие листы из листа, содержащего коды фондового рынка.Для этого у меня есть коды на листе под названием Обновление.Коды от А2 до А10.Я настроил цикл For для перехода к следующему активному листу, и при увеличении значения диапазона лист переименовывается в новое значение ячейки в обновленном WSheet

Проблема, с которой я столкнулся, заключается в том, что мне нужно значение Rangeувеличить на 1, что выберет следующее имя для листа.Я попытался добавить 1 к значению диапазона, но не сработало

Sub changeWSnames()
    Dim sheetname As Worksheet
    Dim r As Integer

    For r = 1 To 10
        ActiveWorkbook.Worksheets(r).Activate
        Set sheetname = ActiveWorkbook.ActiveSheet
        sheetname.Name = Worksheets("Update").Range("a2").Value 
    Next r

    r = r + 1
End Sub

Мне нужна слишком большая тренировка, как увеличить .Range("a2").Value, т.е. увеличить на 1, например, оно становится Range("a3").Value и т. д.

Answer 1

Заменить:

sheetname.Name = Worksheets("Update").Range("a2").Value 

с:

sheetname.Name = Worksheets("Update").Range("a" & (r+1)).Value 

Итак, в первый раз через цикл мы используем a2 , в следующий раз мы используем a3 и т. Д.