View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
 
Posts: 3,514
Default Range("A1").IndentLevel will give you the values 0,1,2,3...

pat martin explained :
Hi Jacob,

I saw your post for getting the indent level on a particular cell, but I must
admit this wasn't enough information for me to create a macro that will
return the information I want.

I would like to get the indent level property from one column of cells say,
range("B1:B500"), and show then in another column ("A1:A500"). I am no VB
programmer, but I do have some rudimentary understanding of the syntax.

Anymore detail would be appreciated

Thanks,
Pat


In a standard module...

Option Explicit

Sub GetIndentLevels()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("B1:B500")
With c.Offset(, -1)
.NumberFormat = "General": .Value = c.IndentLevel
End With 'c.Offset(, -1)
Next 'c
Application.ScreenUpdating = True
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc