Sub insert_namecreate()
	Selection.CreateNames Top:=True, Left:=False, _
	'最上行のセル値を名前に作成します。
	Bottom:=False, Right:= False
	'最下段と最右列を名前に作成しません。
	'複数セルを指定しないとエラーを返します
End Sub