Jurgen
I found the following set the level ok. The only problem was when the indent level was 0. It gave an error so make sure that the indent level is 0.
Tony
Sub fff()
Range("a11").Select
While Not IsEmpty(ActiveCell)
iIdent = ActiveCell.IndentLevel
If iIdent 8 Then iIdent = 8
If iIdent 0 Then Rows(ActiveCell.Row).Rows.OutlineLevel = iIdent
ActiveCell.Offset(1, 0).Select
Wend
End Sub
----- jurgenC! wrote: -----
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!