Sub file_save()
	ActiveWorkbook.Save
	'アクティブブックを上書き保存します
End Sub

Cyber Click!