为某段代码设置超时？

Question

是否可以在vba中设置超时来执行函数或代码块？ 下面的代码有时会挂在open方法上（当我遇到网络问题并显示身份验证提示时会发生这种情况）或者代码挂起在Run方法上（当计算速度太慢时）。

如果打开或计算工作表的时间超过60秒，我想杀死excel.exe进程。

  Set xlApp = CreateObject("Excel.Application")
  xlApp.Visible = True
  xlApp.DisplayAlerts = False

  xlApp.Workbooks.Open strpath
  xlApp.Run "CalculateSheet"
  xlApp.Workbooks.Close
  Set xlApp = Nothing