根据该工作表的单元格值自动更改活动工作表名称

Question

我在google上找到了这个代码，它可以帮助我根据此工作表的单元格值更改当前选项卡名称。但是，我必须每次手动运行此宏代码。如何修改此代码以使其在单元格中输入值后自动更改，或者至少选项卡的名称更改为键入。这是代码：

Sub myTabName()
    ActiveSheet.Name = ActiveSheet.Range("C3")
End Sub

Answer 1

将其放在工作表代码窗格中

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "C3" Then ActiveSheet.name = ActiveSheet.Range("C3")
End Sub