将工作表名称动态更改为单元格的值

Question

我已经找到了下面的VBA，它的工作，但它拉一个单元格的值在工作表中，我试图改变的名称，然而，我要找的是引用一个单元格在主表或一个特定的工作表，让说Sheet1，什么需要改变下面的VBA从Sheet1拉A1而不是活动的工作表?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

谢谢,林

Answer 1

您可以使用以下代码:

Dim sheetname As String
sheetname = "xxxxxxx"
Dim mastersheetname as String
mastersheetname = "yyyyyyy"
Sheets(sheetname).Name = Sheets(mastersheetname).Range("A1").Value

您最好使用命名单元格以避免硬编码单元格地址，例如A1