Sub 
	Selection.ApplyNames Names:="AAA", _
	'選択範囲内にAAAという名前を引用します
	IgnoreRelativeAbsolute:=True, _
	'絶対/相対参照を区別しない
        UseRowColumnNames:=True, _
	'同じ行/列の名前を使用する
	OmitColumn:=True, _
	'同じ列では行方向の名前を使用する
	OmitRow:=True, _
	'同じ行では列方向の名前を使用する
	Order:=xlRowThenColumn, _
	'行方向の名前を優先させます
	'列方向を優先させる場合はxlColumnThenRowを使用します
        AppendLast:=False
	'引数AAA以外に最後に作成した名前の引用をしません
End Sub