スキルアップ・問題解決なら、モーグにおまかせ！

こちらで掲載していただいている，「複数ブックのシートを１つのブックにコピーする」ためのサンプルファイルについて質問させていただきます。
 
超初心者です。よろしくお願いします。
 
サンプルファイルを参考に同様の処理をさせていただいています。
シートのコピーは問題なくできるのですが，コピーした後にコピーされたシートの名前を変更しようとすると，どうしてもマクロを実行しているブック(thisworkbook）のシートがアクティブになっていて，そのマクロ実行中のブックのシート名が変更されてしまいます。
 
敢えて，コピーした後のファイルシートをアクティベートする構文を差し込んでみても，同じです。
 
なぜこのようなことが起こってしまうのでしょうか？
ご教授いただけると幸いです。よろしくお願い致します。
 
※下記コードのActiveSheet.Name = Range("A1").Value の部分です。
 
   Do
        'コピー元のブックを開く
        Set sWB = Workbooks.Open(Filename:=SOURCE_DIR & sFile)
         
        'コピー元の「報告書」シートを集約用ブックにコピー
        sWB.Worksheets("報告書").Copy After:=dWB.Worksheets(dSheetCount)
         
        'シート名をセルA1の値に変更
       ActiveSheet.Name = Range("A1").Value
 
        'コピー元ファイルを閉じる
        sWB.Close
         
        '次のブックのファイル名を取得
        sFile = Dir()
    Loop While sFile <> ""[u][/u]

引用:
'シート名をセルA1の値に変更
       ActiveSheet.Name = Range("A1").Value

taitani さんの引用:

引用:
'シート名をセルA1の値に変更
       ActiveSheet.Name = Range("A1").Value

ちなみに、「F8」 でステップ実行は行ってみましたでしょうか。
※ おそらく、「そのマクロ実行中のブックのシート名が変更」ということの謎が解けると思う。
 
 
 

引用:
アクティブブックは新しく作成したファイルになっているのですが

taitani さんの引用:

引用:
アクティブブックは新しく作成したファイルになっているのですが

例えばその時に、Object に保管して、
 
ActiveSheet.Name = Range("A1").Value
ではなく、
Dim Nws As Worksheet
 
Nws.Name = Range("A1").Value
※ Range("A1").Value も sWB.Range("A1").Value とか？