新規ブック名の取得

質問

vbaの質問です。

例えばですけど
Sheets(Array(1,2,3)).copy
で新しく作成されたbookの名前を取得するのってどうしたらいいんでしょうか。

やりたいことは、既存bookの特定のシートを新規bookへコピーなので別の方法でもできるのですが、上記の方法だとどうなるのかなと思いまして。

回答No.1

f272

その直後に
MsgBox ActiveWorkbook.Name
とすればいかが？

補足

ありがとうございます。

まぁそれでも取得は可能なのですが、もう少しスマートな方法ってないでしょうか。

例えば、Arrayを使わなければ
Dim wbname As Workbook
Set wbname = Workbooks.Add
でnameプロパティで名前が取得できます。