ワークシートをマスターシートにコピーするExcel VBAコード

こんにちは

私は私が変更しようとしている次のコードを見つけました:このコードは既存のワークシートを持つマスターシートにあります.

オプション
str const path as string= "c:\users\Jean\Documents\Test \"
getsheets()
getsheets()
getsheets()
string
ワークブックとしてムード語WB
WORKSHEETとして薄暗いシート
filename= dir(path&"* .xls*")
filename<>""
wb= workbooks.open(filename:= path&filename、readonly:= true)
WB.Sheetsの各シートに
Sheet.COPYの後:= thisworkbook.sheets(1)
次のシート
wb.close
filename= dir()



end sub

私は特定のワークシートを取得したいだけです.私がallが欲しい特定のワークシートはARで始まり、続いて数字が続きます.

私はシートのシートの後にコピーされたシートが入ってほしいです.このコードの行は、そのまま機能しません.

コピーしているシートには範囲名があり、ポップアップボックスが表示されます.自動的にデフォルトで "yes"になるようにしたいです.「はい」ボタンをクリックする必要がありません.

私は私が明確であることを願っています.

jam