質問: " " End If End Sub ``` ### 試したこと ### 補足情報(FW/ツールのバージョンなど) Excel2013
回答: ThisWorkBookはマクロブック(マクロブックから実行していますよね?)なので、 ``` 先シート.Application.ThisWorkbook.Name ``` はマクロブック名が入ります。 求めているブック名が「コピー先」のブック名であれば、 ``` '(3)ファイル名を別ブックへ転記 Dim sname As String sname = コピー先.Name ``` で取得できるはずです。