エクセル VBA 2つのコードの結合

お世話になります。
VBA初心者です。
マクロの記録を少し変形して色々便利に使っているのですが、下記の2行のコードは単独では動くのに結合するとエラーとなります。
アクティブシートのD5セルをシート名にして、そのシートのコピーを末尾にコピーしたいのですが、何か抜けているようです。
お助け下さい。

Sub Sheet名()
ActiveSheet.Name = Range("D5").Value
ActiveSheet.Copy After:=Sheets(2)
End Sub

No.1 回答者： fujillin 回答日時： 2020/09/30 15:10

こんにちは

それぞれ１行のコードを連結したってことでしょうか？
特段おかしなところは見当たりません・けれど・・
どの行で、どのようなエラーになっているのでしょうか？

推測するところ、D5セルにシート名で使用できない文字（\:/など）がはいっているとか。
あるいは、Sheets(2)が存在しないとか。（シートが一つしかない状態）

この回答へのお礼

早々のご回答ありがとうございます。

その通りで1つづだと正常に動きます。

お礼日時：2020/09/30 21:20

No.2 ベストアンサー 回答者： goomania 回答日時： 2020/09/30 15:41

シートをコピーすると新しくコピーされたシートがアクティブになるので、

以下のように順序を入れ替えしたらどうでしょう。

Sub Sheet名()
ActiveSheet.Copy After := Worksheets(Worksheets.Count)
ActiveSheet.Name = Range("D5").Value
END SUB

この回答へのお礼

早々のご回答ありがとうございます。

なるほど、思うように動きました。
最後に最初のシートに移動して終わるようにして使えそうです。

お礼日時：2020/09/30 21:22