Sub insert_namepaste()
	ActiveCell.FormulaR1C1 = "=AAA"
	'作成されている名前を張り付けます
End Sub