Excel vba フォルダ内にある複数の別ブックにシートをコピーしたいのですが、上手くいきません。

Question

前提・実現したいこと

題名の通りなのですが、
下記のコードを実行すると、フォルダ内のブックは開かれて保存されるのですが、
肝心のマクロを使用したシートのコピーがされていません。
もし宜しければご助力ください。
よろしくお願いします。

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

なし

該当のソースコード

Sub Sample()
    Dim myPath As String
    Dim myBook As String
    Dim myActiveBook As Workbook
    Dim myOpenBook As Workbook

    Set myActiveBook = ActiveWorkbook
    myPath = "C:\Users\swprj\Desktop\test\"
    myBook = Dir(myPath & "*.xlsm")
    Do Until myBook = ""
        Set myOpenBook = Workbooks.Open(myPath & myBook)
        myActiveBook.Worksheets(1).Copy After:=myOpenBook.Worksheets(1)
        myOpenBook.Close SaveChanges:=True
        myBook = Dir

    Loop
End Sub

試したこと

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

Comments

[coco_bauer]

マクロを使用したExcelファイルは、"C:\Users\swprj\Desktop\test\"というフォルダの中に有るのですか？　"C:\Users\swprj\Desktop\test\"以外のフォルダーに有るために、シートをコピーする対象から外れている可能性があります。

[ttyp03]

なぜ同じ質問を立ち上げてしまったのか。。。