19/03/13 15:38:57.02 ril+FLd/0.net
>>907
先に範囲選択してからマクロ実行
セルに何も入ってない場合に終了（数字かどうかは判定していない）
Sub Macro1()
番号 = 0
For Each セル In Selection
If セル.Value = "" Then
Exit Sub
Else
ActiveWorkbook.Names.Add Name:="_" & 番号, RefersTo:="=" & セル.Address
番号 = 番号 + 2
End If
Next
End Sub