首次运行VBA代码激活Worksheet报错，后续运行正常问题排查

问题根源 #

首次运行时，删除旧的Out工作表后，尽管代码重新将shOut指向新建工作表，但On Error Resume Next的全局错误抑制可能掩盖了新建/重命名过程中的隐性问题，导致shOut持有一个无效的工作表对象引用——它既不是Nothing，类型也显示为Worksheet，但实际已脱离Excel对象模型，无法调用任何方法（包括Activate）。此外，删除工作表后Excel对象模型未及时完成更新，也会加剧新引用的不稳定性。

修正后的代码 #

改用更安全的工作表检测方式，避免错误抑制带来的隐性问题，同时确保引用有效性：

Dim shOut As Worksheet
Dim sheetExists As Boolean

' 遍历检查工作表是否存在，替代On Error Resume Next的隐性检测
sheetExists = False
For Each shOut In ThisWorkbook.Sheets
    If shOut.Name = "Out" Then
        sheetExists = True
        Exit For
    End If
Next

' 删除已存在的工作表
If sheetExists Then
    Dim lDA As Boolean
    lDA = Application.DisplayAlerts
    Application.DisplayAlerts = False
    shOut.Delete
    Application.DisplayAlerts = lDA
    Set shOut = Nothing ' 显式释放旧对象引用
End If

' 新建并命名工作表，明确绑定当前工作簿
Set shOut = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
shOut.Name = "Out"

' 验证引用有效性
If shOut Is Nothing Then
    MsgBox "无法创建输出工作表，程序退出", vbCritical
    Exit Sub
End If

' 确保工作表可见后再激活（避免新建时默认隐藏的极端情况）
shOut.Visible = xlSheetVisible
shOut.Activate

关键改进点 #

• 用循环遍历替代On Error Resume Next检测工作表，彻底避免错误抑制导致的悬空引用
• 删除旧工作表后显式Set shOut = Nothing，清空无效引用
• 新建工作表时明确使用ThisWorkbook限定范围，避免因活动工作簿切换产生的错误
• 激活前强制设置工作表可见，覆盖新建时可能被设为隐藏的异常情况

原错误的立即窗口现象解释 #

当shOut持有悬空引用时，TypeName(shOut)会返回对象的原始类型，shOut Is Nothing也会返回False，但该对象已从Excel的对象模型中被移除，任何方法调用都会触发“对象方法调用失败”的错误——这是VBA中典型的悬空引用问题。

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