Art



Public Property Let Term(ByVal vNewValue As Variant)
Term = vNewValue
End Property


This should be

mvarTerm = vNewValue

That's why you're getting an infinite loop.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com