excel - ワークブックを開いた後に auto_open を実行する

Question

ワークブックを開いたときに実行されるコードを作成しようとしています。Auto_open と workbook_open (ThisWorkbook オブジェクト内) を試してみましたが、両方に問題があります。問題は、コードが開いているワークブックからの情報を必要とすることです。このコードの平和でわかるように:

Sub Auto_Open()
Dim fileNam As String
Dim text As String
Dim answer As String
Dim question As String
Dim quesPos As Integer
MsgBox "add-in start"
'On Error GoTo GetOut


fileNam = ThisWorkbook.FullName
jsonFile = Replace(jsonFile, "xls", "survey.descriptor.json")
Open jsonFile For Input As #2
pos = 1
ThisWorkbook.Sheets("Result").Select
'The code gives the error here

Excel ファイルがまだ開かれていないため、ファイルの名前を取得中にエラーが発生します。コードを開いたときに実行するようにするにはどうすればよいですか?