Sub file_save_newname1()
	ActiveWorkbook.SaveAs Filename:="C:\My Documents\Book1.xls"
	'アクティブブックをC:\My DocumentsフォルダにBook1の名前で保存
End Sub

Sub file_save_newname2()
	Application.Dialogs(xlDialogSaveWorkbook).Show
	'ファイル名を付けて保存ダイアログボックスを表示
	'Application.Dialogs(xlDialogSaveAs).Showでも同じです
End Sub