エクセルのマクロについて教えてください。

下記のマクロを実行すると指定フォルダ内
「C:\Users\160931\Desktop\テスト\」
の指定ファイル
「テストチェックリスト.xlsm」
の別ブックの
マクロ
「チェック」
を実行できますが、
実行マクロを複数設定出来る方法を教えてください。
例えば
「チェック」「チェック2」「チェック3」

現状のマクロ
Sub 別ブックマクロ実行()

Const FILE_NAME = "C:\Users\160931\Desktop\テスト\テストチェックリスト.xlsm"
Const PROC_NAME = "チェック"
Dim app
Set app = CreateObject("Excel.Application")

With app
'Excel非表示
.Visible = False
Dim wb
Set wb = .Workbooks.Open(FILE_NAME)
.Run wb.Name & "!" & PROC_NAME
'アラートを消す
.DisplayAlerts = False
wb.Save
wb.Close

End With

app.Quit

End Sub

以上となります。
宜しくお願い致します。

質問者からの補足コメント

• 

  回答ありがとうございました。
  記者の教えて頂いたコードを設定しましたが、
  「コンパイルエラー」同じ適用範囲内で宣言が重複しております。
  とエラーメッセージが表示され
  コードの
  「Const PROC_NAME = "チェック2"」の部分の
  「PROC_NAME = 」が変色しており
  マクロを実行できませんでした。
  解決方法を教えてください。
  宜しくお願い致します。

  No.2の回答に寄せられた補足コメントです。 補足日時：2024/04/05 10:41

• 

  ご連絡ありがとうございました。
  上手くできました。

  No.3の回答に寄せられた補足コメントです。 補足日時：2024/04/05 11:50

No.2 ベストアンサー 回答者： zongai 回答日時： 2024/04/05 10:13

Const PROC_NAME = "チェック"

を消して



Dim wb
と
'アラートを消す
の間に、

Const PROC_NAME = "チェック"
Set wb = .Workbooks.Open(FILE_NAME)
.Run wb.Name & "!" & PROC_NAME

これを1セットとして、
「チェック」の部分を書き換えた3セットを続けて書き込む。

No.3 回答者： zongai 回答日時： 2024/04/05 11:17

すみません。

const を削除してみてください。

この回答へのお礼

ありがとうございます。
早速試してみます。

お礼日時：2024/04/05 11:20

No.1 回答者： kigoshi 回答日時： 2024/04/05 10:13

> 実行マクロを複数設定出来る方法を教えてください。

あなたはどうすれば複数設定出来ると考えましたか？
それやってみて、うまく動かなかったり、エラーが出てから質問しませんか。