[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]