Sub edit_copy()
	Selection.Copy
	'選択範囲をコピーします
End Sub