在个人工作簿excel vba中自动打开宏

Question

我正在尝试从我正在使用的其他独立程序导出工作表时运行宏。我试图从个人工作簿中执行此操作，以便它将应用于所有打开的工作簿，但我无法弄清楚如何在个人工作簿的代码中获取新工作表的对象。

Sub Auto_Open()

Dim ans As Integer


ActiveSheet.Range("A1").Select
If InStr(1, (ActiveCell.Value), "Component") > 0 Then
    ans = MsgBox("Would you like to run the Material Requirements BOM Form Macro?", vbYesNo + vbQuestion)
    If ans = vbYes Then
        Matl_Req_Bom_Form
    Else
    End If
Else
End If

End Sub

ActiveSheet仍然返回对象错误。我已经尝试返回表单的名称，但也没有在那里找到成功。其余的代码工作，因为我在一个更受控制的设置中使用它，但是当我导出工作簿并且sub不知道工作簿或工作表的名称时它有问题。