ActiveWindow.Close→ActiveWindow.Close False でOKですよ。

質問のコードは、たぶん、省略されているとは思うのですが、そのコードでは、空のファイルになるだけのような気がします。「保存」が問われるのは、CSVですと、Excelフォーマット形式の情報が失われてしまうから、どうするか聞いてくるわけですね。 >無条件で保存 ということになると、こちらの解釈ですが、もしも既に同じ名前のファイルがある時は、上書き保存ということですね。私のは少し違う意味ですが、他のみなさんの書いたテクニックで良いと思います。 '// Sub Create_CSV_NewFile() 　Dim mName As String 　Dim mPath As String 　With ActiveWorkbook 　　mPath = .Path & "\" 　　mName = .Name 　　mName = Left(mName, InStr(mName, ".") - 1) 　End With 　ActiveSheet.Copy 　With ActiveWorkbook 　　Application.DisplayAlerts = False　'強制的に上書き保存 　　.SaveAs mPath & mName & ".csv", FileFormat:=xlCSV 　　.Close False 　　Application.DisplayAlerts = True 　End With End Sub

Workbooks.Add ActiveWorkbook.SaveAs Filename:=MyFileName & ".csv", FileFormat:=xlCSV ActiveWorkbook.Save ActiveWindow.Close End Sub を Workbooks.Add ActiveWorkbook.SaveAs Filename:=MyFileName & ".csv", FileFormat:=xlCSV ’以下1行追加　メッセージ抑止を設定する Application.DisplayAlerts = False ’以下1行コメントアウト ''''ActiveWorkbook.Save ActiveWindow.Close ’以下1行追加　メッセージ抑止を解除する Application.DisplayAlerts = True End Sub でどうでしょう？