VBS シートをコピーして別のブックへ

コードが長いので、エラーの出る前部分からを掲載いたしますが
現在下記のコードが含まれるマクロを実行すると
win10だと正しく動くのですが
win7だと添付画像のエラーで止まってしまいます。
Workbooks.Add
ThisWorkbook.Sheets("メール").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)

エラーになるのは
ThisWorkbook.Sheets("メール").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)
の部分です。
私の勝手な推測ですが、win10だと新規ブックを作成した際
シートは1だけですが
win7だと新規ブックを作成すると最初からシートは3つあることが
関係しているのではと思っております。

このコードをどのようにすれば、win7でも正しく動作するでしょうか。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2019/09/25 15:55

こんにちは

引数の「Sheets.Count」が意図と異なってしまっている可能性はありませんか？
1行表記だとさらに長くなってはしまいますが、ついでに…

ThisWorkbook.Worksheets("メール").Copy After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count)

としてみたらどうなるでしょうか？

この回答へのお礼

ありがとうございます。
頂いたコードでやりたい事が行えました。
本当にありがとうございました。

お礼日時：2019/09/25 17:12