VBA根据单元格值重命名工作表

Question

我想要一个重命名我的sheetXXX的VBA代码，其中XXX是“Sheet1”表格中单元格B5中的值。宏应该适用于B5中的任何值。

我尝试了以下代码：

Sub tabname()
    Dim sheetXXX As Worksheet
    XXX.Name = Worksheets("Sheet1").Range("B5").Value
End Sub

Answer 1

您必须将object =设置为要重命名的实际工作表。

Sub tabname()
    Dim sheetXXX As Worksheet
    Set sheetXXX = ActiveWorkbook.Sheets("sheetXXX")
    sheetXXX.Name = "Sheet" & Worksheets("Sheet1").Range("B5").Value
End Sub

如果要将sheetXXX作为活动工作表，则可以执行此操作。

Sub tabname()
    Dim sheetXXX As Worksheet
    Set sheetXXX = ActiveWorkbook.Activesheet
    sheetXXX.Name = "Sheet" & Worksheets("Sheet1").Range("B5").Value
End Sub