Excel VBA-根据单元格值命名多个范围

我试图根据每个工作表中特定单元格的内容来命名每个工作表中的间隔。我已经找到了许多命名范围的方法，没有一种方法使用单元格的内容作为名称。这就是我所拥有的（但它不起作用）：

---

要命名工作表，只需使用其

.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

---

Names.Add Name:=r

？变量不属于引号内。谢谢@supersymetry，但它仍然不起作用。我收到一条消息，说这部分有语法错误：工作表（I）.Range（“B6:B10000”）.Name=工作表（I）.Range（“A2”）.value很可能是因为这些工作表的A2中没有有效的名称。当它给出错误时，您试图给出这个范围的名称是什么？我实际上试图在同一工作簿中命名100个不同的工作表，每个工作表都有不同的名称（在每个工作表的单元格A2中）。为什么您会说“我试图命名每个工作表中的间隔”。为什么要命名（或使用）一个prcedure

namerengs

。并使名称

引用范围（“B6:B10000”）

。为什么你会在问题中说“我已经找到了很多命名范围的方法”。请确保你明白你在说什么，写下你的意思，否则，你就是在浪费那些试图帮助你的人的时间。无论如何，我更新了我的答案首先，谢谢你的帮助，我真的很感激！我在最近的评论上说错话了，很抱歉。我必须根据特定表格单元格“A2”中的名称，将每张表格中的范围命名为“B6:B10000”。因此，我必须命名的是范围，而不是表

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