G
Guest
what's wrong with this???
Property Let DatabaseRow(Value As Long)
If SheetRow = 0 Then SheetRow = Value
End Property
Property Get DatabaseRow() As Long
DatabaseRow = SheetRow
End Property
Private SheetRow As Long
Property Let DatabaseRow(Value As Long)
If SheetRow = 0 Then SheetRow = Value
End Property
Property Get DatabaseRow() As Long
DatabaseRow = SheetRow
End Property
Private SheetRow As Long