VBAでシートのコピー

質問

お世話になっております。
VBAの未熟者ですが、個人の資料作成のためのシステムをコツコツと作っております。
今までマクロでシートのコピーをやっていたのですが、コマンドボタンでできるように変更しようとしてうまくいきません。
ファイルＡの中にある幾つかのシートの内、シート「個人事業」を「請求書」ファイルの「Sheet2」にコピーしたいのです。その後名前を変更しています。
マクロのプログラムをそのままコピーしてみたのですが、[sheets("個人事業").paste]のところでエラーが出ます。
マクロとコマンドボタンではやはり設定を変更しないといけないのでしょうか？ご教授お願いします。

Private Sub CommandButton1_Click()
Sheets("Sheet2").Select
Windows("未請求リスト.XLS").Activate
Sheets("個人事業").Select
Selection.Copy
Windows("請求書.xls").Activate
Sheets("Sheet2").Select
Sheets("個人事業").Paste
Sheets("Sheet2").Name = "個人事業請求一覧"
Sheets("請求書").Select
End Sub

宜しくお願いします。

回答No.1

WDY · ベストアンサー

シートのコピー貼付けの方法を
Sheets("個人事業").Copy Before:=Workbooks("請求書.xls").Sheets(1)
なら
Sheets("個人事業").Paste
の所でエラーにならないかな？

参考URL：

http://www.happy2-island.com/excelsmile/smile03/capter00404.shtml

お礼

早速ありがとうございます。
うまく行きました。
本当にありがとうございました。
助かりました。