すぐに役立つエクセルVBAマクロ集 FAQ 不規則なセル範囲に名前を

　すぐマク　YNxv969

不規則なセル範囲に名前を付けるには？

Ｑuestion 53.4　範囲選択

データ行数が不規則なファイルの全領域に対して毎回’Database’という名前を付けたいので、セル範囲を決める記述を下の様にしました。

ActiveCell.SpecialCells(xlLastCell).Select
Row_LastCell = ActiveCell.Row
Column_LastCell = ActiveCell.Column
Range(Cells(1, 1), Cells(Row_LastCell, Column_LastCell)).Select

500連発第2弾マクロ番号120「セル範囲に名前を付ける」を参考にして取り組んでいるのですが、RefersToR1C1プロパティをどの様に記述すればよいでしょうか。
お手数お掛け致しますが、よろしくご教授下さいます様お願い申し上げます。

Ａnswer　　

参考にしていただいて、ありがとうございます。
ここまで組めていますので 120番のサンプルマクロとは少し異なりますが、最後に1行、Nameプロパティを使ったコードを追加されればよろしいかと思います。

    Range(Cells(1, 1), Cells(Row_LastCell, Column_LastCell)).Name = "Database"

本来ならばもう少し詳しくご説明したいのですが、Nameプロパティの解説はかなり長くなるようでして、たまたま現在は、夏ごろに出版予定の本の執筆に追われていて時間が取れないので、取り急ぎ解決策だけになります。
ご容赦ください。

http://www.geocities.jp/happy_ngi/