[vba]
Option Explicit
Private rg As Range
Public Property Get StartCell() As Range
Set StartCell = rg
End Property
Public Property Set StartCell(Value As Range)
Set rg = Value
End Property
[/vba]
[vba]
Option Explicit
Sub ClassTest()
Dim Class1 As Class1
Dim rg As Range
Set Class1 = New Class1
Set rg = ThisWorkbook.Worksheets(1).Range("A1")
Set Class1.StartCell = rg
MsgBox Class1.StartCell.Address
End Sub
[/vba]