Excel VBA:フォルダ内のすべてのファイルから「予測」という単語から始めるすべてのワークシートをマスターファイルの同じ名前のシートにプールしますか?

こんにちは、

フォルダ内のファイルから「PROCAST」という単語から始めてすべてのワークシートをコピーして貼り付けて、マスターファイル内の同じ名前のシートにすべてのワークシートを貼り付けようとしています.

現在、コードはフォルダ内の最初のファイルからワークシートを引き継ぐだけです.以下のコード.次のワークブックに移動するにはどうやって同じ?

私はVBAにとって新しいことができていますので、あらゆる助けが高く評価されています:)コード全体を引いてください.

サブプルフォフォースト()

wbt= thisworkbook

application.ScreenUpdating= false

path= "c:\users\natalie.smith\oneedrive-Sainsbury's SuperMarkets Ltd\Squad Tracking Folders\Squad Trackers \" " filename= dir(path&"* .xlsm")
workbooks.open filename:= path&filename、readonly:= true

ワークシートの各WSについて
mid(ws.name、1,8)= "予測"
ws.select
ws.range( "a1"、範囲( "a1").end(xltoright).end(XlDown)).コピー
ws.paste destination:= wbt.sheets(ws.name).Range( "A1")

WBT.Sheets(ws.name).Range( "A1").PRESSESPERIAL XLPASTEVALUESANDNUMBERFORMATS

Application.cutCopyMode= false

の場合は終了 次のWS

ワークブック(ファイル名).kalse

filename= dir()
application.ScreenUpdating= true

終了SUB