Sub insert_namelabel()
	Range("A1").FormulaLabel = xlRowLabels
	'行ラベルを作成します
	'行ラベルの場合にはxlColumnLabels
	'両方の場合にはxlMixedLabels
	'削除の場合にはxlNoLabelsを指定します
End Sub