セルをコピーしてシート名を取得 【VBA】

質問

こんばんわ。
エクセルのVBAについて、どうしてもわからなくなったので質問させて下さい。

マクロの内容は
１．一番前のシート（名前はSheet1ではありません。）のボタン35をクリック
２．シートをコピーして３番目に置く。
３．値にする。
４．シート名をセルの"DE16"に入っている値にする。
５．ボタンを消す。

以下の内容になりましたが、名前のところでデバックがおこります。

Sub ボタン35_Click()
Worksheets(1).Select
Worksheets(1).Copy After:=Sheets(3)
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Worksheets(3).Select
Worksheets(3).Name = Range("DE16").Value
ActiveSheet.Shapes("Button 11").Select
Selection.Delete
Application.CutCopyMode = False
End Sub

どなたかお知恵を貸して下さい。

回答No.1

某HN クロメート(Chromate)（@CoalTar） · ベストアンサー

Worksheets(1).Copy After:=Sheets(3)
3番目のシートの後ろにコピーしているので
ActiveSheet.Shapes("Button 11").Select
Selection.Delete
は
Worksheets(4).Shapes("Button 11").Delete
では？

やりたいことは
Worksheets(3).Select
ではなく
Worksheets(4).Select
かな
当方VBAは不得意なので参考まで

お礼

早速のご回答有難うございます。
登録時に余計なシートが入っていた為
Worksheets(1).Copy After:=Sheets(3)
になってました。
ご指摘ありがとうございます。
訂正してマクロを実行してみたところ、成功致しました。
本当にありがとうございました＾＾
おかげでぐっすり眠れそうです。