シート内の使用範囲と同じサイズの、空っぽの配列を作るクラスモジュール

今日も今日とて、Excel の急患が運ばれてきました。緊急搬送の理由は、後日の機会に改めて。ただ最近、今回のを含め、以下のケースに何度も遭遇しています。

「シート内の使用範囲と同じサイズの、空っぽの配列を準備する」

大量生産しないメーカーにとって、同じものが10台売れれば、それは１万台売れたのと同じこと。直ぐにも標準品として、登録しなければ！
ということで、クラスモジュールにしてみました。

［クラスモジュール］※今回はBlankSequenceClass と命名。

Option Explicit

Private Property Get mySht() As Worksheet
    Set mySht = ActiveSheet
End Property

Private Property Get myRng() As Range
    Set myRng = mySht.UsedRange
End Property

Private Property Get rMax() As Long
    rMax = myRng.Rows.Count
End Property

Private Property Get cMax() As Long
    cMax = myRng.Columns.Count
End Property

Public Property Get BlankSeq() As Variant
    Dim tempSeq As Variant
    ReDim tempSeq(1 To rMax, 1 To cMax)
    BlankSeq = tempSeq
End Property

［標準モジュール］

Sub test()
    Dim BSC As BlankSequenceClass
    Set BSC = New BlankSequenceClass
    MsgBox UBound(BSC.BlankSeq)
End Sub

試しに実行してみると、正常に動いている、ように見えます。でも、Property Get の使い方って、これで良いのかな。良く判りません。最近は何となく「Public変数の乱発に抵抗感があったから」、というのが上記の理由です。
もともと調査用に準備する配列なので、今回はこれでＯＫということで。

参考まで。