I'm just after some advice as to whether I'm heading in the correct
direction.
I'm new to class modules so just wondering if the below looks logical
+ efficient.
Any advice greatly appreciated
JasonQ.



'this is in a Class Module "myClass":
'=================================
Private R As Range
Private TR As Integer


Public Property Set TopLeftCell(ByRef sVal As Range)
Set R = sVal
TR = R.Row
End Property
Public Property Get TopLeftCell() As Range
Set TopLeftCell = R
End Property


Public Property Get TopRow() As Integer
TopRow = TR
End Property




'This is in a normal module:
'=================================
Dim X As myClass

Sub test()

Set X = New myClass
Set X.TopLeftCell = ActiveSheet.Range("AD4")

MsgBox X.TopRow

Set X = Nothing

End Sub