当引用单元格更新时运行宏：同步重命名Excel两个工作表

解决方案 #

直接修改Company工作表中的Worksheet_Change事件代码，在其中同时处理两个工作表的重命名逻辑，不需要在Company News工作表中添加额外代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应B3单元格的修改
    If Not Intersect(Target, Me.Range("B3")) Is Nothing Then
        Dim baseName As String
        baseName = Trim(Me.Range("B3").Value)
        
        ' 处理空值情况
        If baseName = "" Then
            baseName = "Company Unspecified"
        End If
        
        ' 重命名当前工作表（原Company表）
        Me.Name = baseName
        ' 重命名Company News工作表，添加" News"后缀
        ' 若担心原名称被修改导致找不到，建议使用工作表的CodeName（见下方说明）
        Worksheets("Company News").Name = baseName & " News"
    End If
End Sub

为什么你之前的方法无效 #

1. 第一个尝试的问题：
   你在Company News工作表中编写的Worksheet_Change事件不会触发，因为C4单元格是通过公式自动更新的——Worksheet_Change仅响应用户手动输入、粘贴等直接修改操作，公式计算导致的单元格值变化不会触发该事件。

2. 第二个尝试的问题：
   Intersect(Target, Worksheets("Sheet1").Range("B3").Value)的用法完全错误：Intersect函数的参数必须是Range对象，不能是单元格的文本值；另外Sheet1也不一定对应原Company工作表（若已重命名则会找不到）。

额外优化建议 #

如果担心Company News工作表的显示名称被修改后，Worksheets("Company News")无法定位到目标工作表，推荐使用工作表的CodeName：

1. 打开VBA编辑器，在左侧工程资源管理器中找到Company News工作表
2. 按F4打开属性窗口，查看(Name)属性（默认可能是Sheet2）
3. 将代码中的Worksheets("Company News")替换为该CodeName，例如：

   Sheet2.Name = baseName & " News"
   

这样无论工作表的显示名称怎么变，都能准确定位到目标工作表。

另外，可添加工作表名称合法性验证（避免非法字符）：

' 在设置baseName后添加以下代码
Dim invalidChars As String
invalidChars = "/:*?""<>" & "|"
Dim i As Integer
For i = 1 To Len(invalidChars)
    baseName = Replace(baseName, Mid(invalidChars, i, 1), "")
Next i
baseName = Left(baseName, 31) ' 限制最长31字符

内容的提问来源于stack exchange，提问作者Progolfer79