Excelマクロの自動実行で新規ブックを保存せずに表示したい

質問

以下のようなマクロを作成しました。
これを、TEST.xls として保存し、サーバに登録しました。
これをwebサイトで <a href="TEST.xls">実行する</a> のようにして
ダウンロードし実行しても、strNEWBKNM が表示されずに終了してしまいます。

auto_open をやめて、ダウンロード後に「ツール」→「マクロ」でマクロを実行すると
strNEWBKNM が表示された状態で終了するのですが、
auto_open でも strNEWBKNM が表示された状態で終わらせたいです。
（保存はしたくありません。あくまで表示で終わらせたいです）

どのようにしたらよいか、お分かりになる方がいらっしゃいましたら
教えてください。よろしくお願いします。

Sub auto_open()
Dim strWKBKNM As String 'このブック名
Dim strNEWBKNM As String '新しいブック名

strWKBKNM = ThisWorkbook.Name '*** このブックの名前を設定
Workbooks.Add '*** 新しいブックを追加
strNEWBKNM = ActiveWorkbook.Name '*** 新しいブックの名前を設定

Sheets("Sheet1").Activate
Range("A1") = "aaaaaa"

Workbooks(strNEWBKNM).Activate

Workbooks(strWKBKNM).Close SaveChanges:=False
End Sub

回答No.1

Alpha-j

マクロ編集画面(Vsial Basic Editor)の This Workbook をダブルクリックして以下を入れた場合どうなりますか？
Private Sub Workbook_Open()
Dim strWKBKNM As String 'このブック名
Dim strNEWBKNM As String '新しいブック名

strWKBKNM = ThisWorkbook.Name '*** このブックの名前を設定
Workbooks.Add '*** 新しいブックを追加
strNEWBKNM = ActiveWorkbook.Name '*** 新しいブックの名前を設定

Sheets("Sheet1").Activate
Range("A1") = "aaaaaa"

Workbooks(strNEWBKNM).Activate

Workbooks(strWKBKNM).Close SaveChanges:=False

End Sub

補足

アドバイスありがとうございます。
やってみましたが、結果は同じでした…。

とりあえず今は、シートにコントロールを作成し、
そこにマクロを設定して実行しています。