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

Question 53.4 Previous Next
データ行数が不規則なファイルの全領域に対して毎回’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プロパティをどの様に記述すればよいでしょうか。
お手数お掛け致しますが、よろしくご教授下さいます様お願い申し上げます。
Answer   Copyright (C) 2002.5.28 永井善王
参考にしていただいて、ありがとうございます。
ここまで組めていますので 120番のサンプルマクロとは少し異なりますが、最後に1行、Nameプロパティを使ったコードを追加されればよろしいかと思います。
    Range(Cells(1, 1), Cells(Row_LastCell, Column_LastCell)).Name = "Database"
本来ならばもう少し詳しくご説明したいのですが、Nameプロパティの解説はかなり長くなるようでして、たまたま現在は、夏ごろに出版予定の本の執筆に追われていて時間が取れないので、取り急ぎ解決策だけになります。
ご容赦ください。
後日情報
500連発第2弾は完売になりました。 が、その後に発売された下記の本にも、同様のマクロが掲載されています。
 ・ Excel VBA そのまま使える実用マクロ500連発 の142番
 ・
Excel VBA 実用マクロ 800連発 [中・上級編] の201番

Excel VBA Macro