ステートメントの末尾が不正です。

Question

前提・実現したいこと

タスクスケジューラーを活用しようと思い、vbsファイルを作成しましたが
以下のエラーメッセージが発生しました。
どうすれば回避できるでしょうか？

宜しくお願いします。

発生している問題・エラーメッセージ

ステートメントの末尾が不正です。800A0401
行:8
文字数:9

該当のソースコード

ソースコード
Const WB_PATH = "C:\Users\Desktop\test.xlsm"
Const PROC_NAME = "outlook"
Dim excelApp
Set excelApp = CreateObject("Excel.Application")

With excelApp
.Visible = False
Dim wb test.xlsm
Set wb = .Workbooks.Open(WB_PATH)
.Run wb.Name & "!" & PROC_NAME
.DisplayAlerts = False
wb.Save
wb.Close
End With

excelApp.Quit

試したこと

文字コードを「ANSI」に変更しました

補足情報（FW/ツールのバージョンなど）

Windows10　Office2016

Answer 1

Dim wb test.xlsm

このtest.xlsmって何でしょう？
これが要らないのでは？

Answer 2

Dim wb test.xlsm

が、文法的に出鱈目ですね。
何を意図したtest.xlsmでしょう？

Comments

[naoki1965]

ありがとうございます。
マクロを格納しているファイル名を　test.xlsm　としてみたのですが
まずかったですか？

[otn]

dim文の意味をどのように理解していますか？

[naoki1965]

早々にありがとうございます。
ここにファイル名がくっついていることに気付いていませんでした。
もっと冷静になってから質問するべきでした。本当にありがとうございました。

[otn]

タイプミスあるいはコピペミスということでしょうか？