Excel工作簿不会重新启动

Question

我可以在消息框中按“确定”时如何重新启动Excelworkbook。我已经做到这一点，但由于工作簿不会重新启动它不起作用：

Dim x As String

With CheckTekla
If .GetConnectionStatus = False Then
Call Shell("C:\Program Files\Tekla Structures\19.1\nt\bin\TeklaStructures.exe")
MsgBox "MESSAGE"
x = ActiveWorkbook.Name
Workbooks(x).Close False
Workbooks.Open x

代码的作用是打开Excel工作簿后打开消息框。然后，如果您在消息框内按“确定”，它应该重新启动工作簿。

对任何形式的帮助都很满意！

此致