Sub edit_cut()
	Selection.Cut
	'選択範囲を切り取ります
End Sub