Sub insert_nameadd()
	ActiveWorkbook.Names.Add Name:="AAA", _
	'AAAという名前を作成します
	RefersTo:="=Sheet1!$A$3"
	'A3に設定します。$がないと相対参照になります
End Sub