Sub test2()　　　　 '保存先を指定しないとカレントフォルダに保存します
　ActiveWorkbook.SaveAs Format(Date, "yyyy年mm月dd日") & ".xls"
End Sub

　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。

Sub test2()
　Dim strPathName As String
　Dim strPathBook As String
　Dim strPathBHit As String
　Application.ScreenUpdating = False
　With ThisWorkbook
　　strPathName = .Path & "\MMDATA\"
　　strPathBook = strPathName & Format(.Sheets("Sheet1").Range("H1").Value, "00000") & ".xls"
　　strPathBHit = Dir(strPathName, vbNormal)
　　'次の７行で、既存の見積書番号を検査し、同じ番号があればメッセージを出し終了します。
　　Do While strPathBHit <> ""
　　　If strPathName & strPathBHit = strPathBook Then
　　　　MsgBox strPathBHit, vbCritical, "既に同一の見積番号が存在します"
　　　　Exit Sub
　　　End If
　　　strPathBHit = Dir
　　Loop
　　'次の８行で、見積書の転送・保存・クローズをしています。
　　Application.DisplayAlerts = False
　　Workbooks.Add
　　With ActiveWorkbook
　　　ThisWorkbook.Sheets("Sheet1").Cells.Copy .ActiveSheet.Range("A1")
　　　.SaveCopyAs Filename:=strPathBook
　　　.Close
　　End With
　　Application.DisplayAlerts = True
　'次の３行で、番号のカウントアップしています。
　　With .Sheets("Sheet1").Range("H1")
　　　.Value = .Value + 1
　　End With
　　'次の行で、Ａ３：Ｄ１０をクリアしています。
　　.Sheets("Sheet1").Range("A3:D10").ClearContents
　　.Save
　End With
　Application.ScreenUpdating = True
End Sub
　　このコードの使い方は、マクロの使い方(１)標準モジュールにあります。

[XL95]変更していないブックを閉じる際保存するか尋ねられる場合

【原因１】　ファイルを開いたときに再計算が走るような関数がある場合
　　　　　　【対策】　[ツール]-[オプション]-[計算方法]-[手動にチェック]を入れます
【原因２】　次の関数はブックが開かれたと同時に再計算されます。
　　　　　　　AREAS　CELL　COLUMNS　INDEX INDIRECT　NOW　OFFSET　ROWS　RAND　TODAY
【原因３】　[ツール] - [オプション] で[計算方法] タブの [計算方法] グループの設定や、
　　　　　　[移行] タブの [シート オプション] の設定などブックやシートに対する設定を変更した場合
【原因４】　図のリンク貼り付け、または、カメラ　を使用している場合

[XL]変更していないブックを閉じる際保存するか尋ねられる場合（XL5.0）