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

下記のマクロを実行すると、コピー元の指定フォルダ内にあるワイルドカードで指定したファイルの指定シートを作業ブックにコピー出来ますが、このマクロではコピー元の指定シートが
「' コピー元のシートを取得（左から4番麺目のシート）
Set srcSheet = srcWorkbook.Sheets(4)」となっており、
この部分を複数の直接名のシートに変更出来る方法を教えてください。
コピー元のシート名「受付」「青紙表」「1号様式」「2号式」
以上です。
現状のマクロです。
Dim srcFolderPath As String
Dim srcFileName As String
Dim srcSheetName As String
Dim destWorkbook As Workbook
Dim destSheet As Worksheet
Dim srcWorkbook As Workbook
Dim srcSheet As Worksheet

' コピー元のフォルダパスとファイル名を指定
srcFolderPath = "\\Nas-sp01\share\確認部\行政報告フォルダ\☆確認済交付月別物件（完了検査対象）\2024年　【担当】確認番号　建物名称\01月\"
srcFileName = "*23045888*.xlsm"

' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("第4号様式（印刷用）")

' コピー元のファイルを検索
srcFileName = Dir(srcFolderPath & srcFileName)
' コピー元のブックを開く
Set srcWorkbook = Workbooks.Open(srcFolderPath & srcFileName)
' コピー元のシートを取得（左から4番麺目のシート）
Set srcSheet = srcWorkbook.Sheets(4)
' コピー元のシート名を取得
srcSheetName = srcSheet.Name
' コピー元のシートをコピー先にコピー
srcSheet.Copy After:=destSheet
' コピー元のブックを閉じる
srcWorkbook.Close SaveChanges:=False
End Sub
以上となります。
宜しくお願い致します

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

• 

  回答ありがとうございます。
  コードを
  「Set srcSheet = srcWorkbook.Sheets(Array(("受付", "青紙表", "1", "1号確認", "4号確認 "))」
  と設定しましたが、
  コンパイルエラー　構文エラーと表示がでてしまい、
  上手くマクロが実行できません。
  解決方法を教えてください。
  宜しくお願い致します。

  No.1の回答に寄せられた補足コメントです。 補足日時：2024/04/02 08:35

No.1 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2024/04/02 08:12

＞この部分を複数の直接名のシートに変更出来る方法を教えてください。

既にコードの書き方はご存知なのでは？

' コピー先の作業ブックとシートを指定
Set destWorkbook = ThisWorkbook
Set destSheet = destWorkbook.Sheets("第4号様式（印刷用）")

--------
Set シートの変数 = ブックの変数.指定するシート名

ではないでしょうか？