如何实现VBA代码在工作表名称被外部修改后仍可动态运行？

原代码中Worksheets("Sheet1")是通过显示名称引用工作表，一旦外部修改了工作表的显示名称，代码就会因找不到对应工作表而报错。下面提供几种动态引用工作表的方案，确保代码不受显示名称修改影响：

方案1：使用工作表的代码名称（最推荐） #

每个工作表在VBA编辑器里都有一个代码名称（CodeName），这个名称不会随外部修改显示名称而改变。你可以在VBA编辑器的「工程资源管理器」里看到（比如默认的Sheet1，即使你把工作表显示名改成"质量报表"，代码名称还是Sheet1，除非你在属性窗口里手动修改）。

修改后的完整代码如下：

Sub Send_Range_Or_Whole_Worksheet_with_MailEnvelope()
'适用于Excel 2002-2016
    Dim AWorksheet As Worksheet
    Dim Sendrng As Range
    Dim rng As Range
    
    '指定代码名称为Sheet1的工作表，避免引用活动表出错
    If Len(Sheet1.Range("B20").Value) = 0 Or Len(Sheet1.Range("B21").Value) = 0 Then Exit Sub
    

    On Error GoTo StopMacro

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    '直接用代码名称Sheet1引用工作表，不受显示名称修改影响
    Set Sendrng = Sheet1.Range("A1:B22")

    '记录当前活动工作表
    Set AWorksheet = ActiveSheet

    With Sendrng

        '选中目标工作表
        .Parent.Select

        '记录该工作表上的活动单元格
        Set rng = ActiveCell

        '选中要发送的区域
        .Select

        '创建邮件并发送
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope

            '邮件正文开头的说明文字
            .Introduction = "请查看以下一级质量评审详情。"

            With .Item
                .To = "danielle.a.ext@razer.com"
                .CC = ""
                .BCC = ""
                '引用目标工作表的E2单元格作为主题
                .Subject = Sheet1.Range("E2").Value
                .Send
            End With

        End With
        
        MsgBox "邮件已发送"

        '恢复之前的活动单元格
        rng.Select
    End With

    '恢复之前的活动工作表
    AWorksheet.Select

StopMacro:
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    ActiveWorkbook.EnvelopeVisible = False

End Sub

方案2：通过工作表的特定标识定位（适合多工作表场景） #

如果你的目标工作表有唯一标识（比如A1单元格固定写着"质量评审表"），可以遍历所有工作表找到这个标识，再引用它：

在代码开头添加定位逻辑：

Dim TargetSheet As Worksheet
For Each TargetSheet In ThisWorkbook.Worksheets
    '假设A1单元格是唯一标识
    If TargetSheet.Range("A1").Value = "质量评审表" Then
        Exit For
    End If
Next
'如果没找到目标表，直接退出宏
If TargetSheet Is Nothing Then
    MsgBox "未找到目标工作表"
    Exit Sub
End If

之后把原代码里所有Worksheets("Sheet1")和Sheet1的引用替换成TargetSheet即可。

方案3：引用当前活动工作表（适合宏在目标表上运行时） #

如果运行宏时，目标工作表正好是当前活动工作表，可以直接用ActiveSheet引用：

Set Sendrng = ActiveSheet.Range("A1:B22")

但这种方法有局限性，若运行宏时活动表不是目标表，代码就会出错。

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