と記述します。 以上を踏まえてプログラムを修正しますと ~ Dim strFile As String 'コピー先パス&ファイル名 Call シート初期化 dayCutoff = InputBox("締月を入力してください(例:2015/5)") For n = 2 To rowsClient strFile = ThisWorkbook.Path & "\" & Format(dayCutoff, "yyyymm") & "_" & wsClient.Cells(n, 1).Value & ".xlsx" 'コピー先ファイル名 FileCopy ThisWorkbook.Path & "\請求書ひな形.xlsx", strFile 'ファイルをコピー Workbooks.Open strFile 'コピーにて作成したファイルを開く Set wsInvoice = ActiveSheet