hi all,

trying to code a routine which loops through each cell in a column and
based on the Ident Level of that cell, set the OutlineLevel of the same
Row. however after assigning the Ident Level to a Integer Variable, i am
unable to set the OutlineLevel based on the Integer Variable (all is
well if the OutlineLevel is set as a number):

Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = iIdent
iStartD = iStartD + 1
Loop

this will work (but not what i need):
Do While iStartD <= iEndD
iIdent = Worksheets(oSht.name).Range("B" &
iStartD).IndentLevel
If iIdent 8 Then iIdent = 8
Worksheets(oSht.name).Rows(iStartD).Rows. _
OutlineLevel = 2
iStartD = iStartD + 1
Loop

any help is mostly appreciated

cheers...

...jurgenC!

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!