VBA - именование нескольких диапазонов в соответствии со значениями ячеек

Question

Я пытаюсь называть интервалы на каждом листе в соответствии с содержимым определенной c ячейки на каждом листе. Я просмотрел много способов присвоения имен диапазонам, кто бы ни использовал содержимое ячейки в качестве имени. Вот что у меня есть (но не работает):

Sub NameRanges()

Dim WS_Count As Integer
Dim I As Integer
Dim r As String

     WS_Count = ActiveWorkbook.Worksheets.Count


     For I = 5 To WS_Count

        r = Worksheets(I).Range("A2")
        Names.Add Name:="r", RefersTo:=Worksheets(I).Range("B6:B10000")


     Next I
End Sub 

Answer 1

Чтобы назвать лист, просто используйте его свойство .Name следующим образом:

Sub NameSheets()
    Dim i As Integer
    With ActiveWorkbook
        For i = 5 To .Sheets.Count
            .Sheets(i).Name = .Sheets(i).Range("A2").Value
        Next i
    End with
End Sub