Excelシートの最大行数を取得する

前回の「最後のセルへ移動できない場合は・・・」で
以下のような画像をお見せしました。

rows.Countとありますが、これでExcelシートの最大行数が取得できます。

Sub Sample1()
    Debug.Print Rows.Count
End Sub

上のコードを実行するとイミディエイトペインにExcelシートの行数が表示されます。
Excel2013ですと1048576ですが、Excel2003までは65536行が最大でした。

Rows.Countにより、Excelのバージョンに関わらず最大行数を取得することができます。