> .Sheets("Sheet1").Select > .Sheets("Sheet1").Copy After:=Sheets(3) ← ここでエラーとなる。 ロータススクリプトの場合、 値の代入は「:=」ではなく、「=」ではないでしょうか? ご確認ください。