The line Private SheetRow As Long needs to come before the Property Let /
Property Get statements.

It's due to the way the compiler works.

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Rob" wrote in message
...
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