VBAで加工したファイルを、 　・元ファイルは元の状態（加工前の状態）にしたい 　・加工後ファイルは別ファイルとして保存したい 　・保存名、場所は指定したい という場合の処理です。

    Dim strFN As String
    strFN = Application.GetSaveAsFilename(ActiveSheet.Name & "_" & Replace(Date, "/", "") ,_
     FileFilter:="CSV ファイル (*.csv), *.csv")
    If strFN <> "False" Then
        ActiveWorkbook.SaveAs strFN, FileFormat:=xlCSV
    End If
    ActiveWorkbook.Close SaveChanges:=False

今回はCSVを加工して、CSVのまま保存したかったので上記のような記述です。