常に一番右（末尾）にシートを挿入したい

質問

エクセルvbaですが
現在のシート数が３シートの場合、

Sub Macro()
Sheets("基本").Copy After:=Sheets(3)
End Sub

で基本シートをコピーして、一番左に生成することはできますが
この時点でシート数は４枚になり、また同じコードを実行すると、
右から２番目、左から３番目、にシートが挿入されます。

Sheets(3)をすることによって左から３番目になってしまうと思うのですが
常に一番右にシートを挿入する方法を教えてください。
よろしくお願いします。

回答No.1

keithin · ベストアンサー

worksheets("基本").copy after:=worksheets(worksheets.count)
のようにします。

お礼

回答ありがとうございました。