エクセル VBAについて質問です。 Sub 請求書保存_Click() Dim Path, WSH As Object Dim FName, Hi, Namae, No1, No2 Dim 開始確認 As Long '開始時の実行確認' 開始確認 = MsgBox("保存しますか?", vbYesNo) If 開始確認 = vbNo Then Exit Sub '「いいえ」なら終了' Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\請求書\" ThisWorkbook.Worksheets("請求書").Copy '保存するブックの名前を作成 Dim A, B, C, D, E, F, G A = Range("M3").Text 'ブックの名前 B = Replace(Hi, "/", "_") '日付 C = Range("A4").Text D = Range("P1").Text E = Range("R1").Text F = D & E & "-" & C & "-" & A G = Path & F & ".xlsx" '新しく作成したブックを名前を付けて保存(日付付き) ActiveWorkbook.SaveAs Filename:=G '新しく作成したブックを閉じる ActiveWorkbook.Close False Set WSH = CreateObject("WScript.Shell") Path = WSH.SpecialFolders("Desktop") & "\請求書\" Hi = Range("M3").Text Hi = Replace(Hi, "/", "_") Namae = Range("A4").Text No1 = Range("P1").Text No2 = Range("R1").Text FName = No1 & No2 & "-" & Namae & "-" & Hi Path = Path & FName & ".pdf" ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Path FileCopy Path, "F:\" & "\請求書\" & FName & ".pdf" MsgBox "保存しました" ActiveWorkbook.Save End Sub 上記のようなVBAを作成しています。 保存はできるのですが、保存したExcelを立ち上げて 修正したものをさらに保存しようとすると ActiveWorkbook.SaveAs Filename:=G この部分で、実行時1004のエラーがでます。 エラーをなくすには、どのように修正すればいいか教えて頂きたいです。