求助：UserForm无法加载，formSelectSheet.Show提示找不到指定对象

排查与解决步骤： #

• 确认窗体在工程中的存在性
  按Alt+F11打开VBA编辑器，通过左侧工程资源管理器（Ctrl+R调出）查看是否有名为formSelectSheet的窗体。右键窗体选择属性，核对名称栏是否为formSelectSheet——注意区分窗体的名称和Caption（标题），后者是窗体显示的标题文字，不是代码调用时的标识。

• 排查窗体是否被误删或隐藏
  如果工程资源管理器里找不到目标窗体，先确认是否被误删除。若确实丢失，需重新创建窗体并将其名称设置为formSelectSheet。

• 修复VBA工程损坏问题
  部分情况下，工作簿的VBA工程损坏会导致对象识别失败，可尝试：

  1. 保存当前工作簿并关闭Excel
  2. 重新打开工作簿，进入VBA编辑器后再次运行代码
  3. 若问题依旧，将代码复制到新建工作簿，重新创建对应窗体后测试

• 检查重名冲突
  搜索整个VBA工程（Ctrl+F），确认是否存在与formSelectSheet同名的变量、过程或模块，重名会导致系统无法正确识别窗体对象。

代码优化建议： #

原代码中频繁ReDim Preserve会降低运行效率，可先获取工作表总数再一次性初始化数组：

Option Explicit
Public sheetsToHide() As String

Sub HideSelectedSheets()
    Dim ws As Worksheet
    Dim sheetCount As Integer
    Dim i As Integer
    
    sheetCount = ActiveWorkbook.Worksheets.Count
    ReDim sheetsToHide(1 To sheetCount) ' 一次性初始化数组容量
    
    i = 1
    For Each ws In ActiveWorkbook.Worksheets
        sheetsToHide(i) = ws.Name
        i = i + 1
    Next ws
    
    formSelectSheet.Show
End Sub

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