R
ryguy7272
I am trying to arrange elements into groups. My code is below:
Sub Grp()
Dim lngRow As Long
Sheets("Sheet1").Select
For i = 6 To 0 Step -1
For lngRow = Cells(Rows.Count, "B").End(xlUp).Row To 4 Step -1
If Range("B" & lngRow) <> "" And .IndentLevel = (i) Then
Range("B" & lngRow & ":B" & lngRow).Rows.Group
End If
Next lngRow
Next i
End Sub
Basically, I want to start on Row 4, go to the end of the used range, and
group all data according to the ‘Indent’ of each Row. There can be 0 to 6
IndentLevels.
The code fails on this line:
If Range("B" & lngRow) <> "" And .IndentLevel = (i) Then
The message I get says ‘Compile Error: Invalid or unqualified refernce.’
What am I doing wrong?
Thanks,
Ryan---
Sub Grp()
Dim lngRow As Long
Sheets("Sheet1").Select
For i = 6 To 0 Step -1
For lngRow = Cells(Rows.Count, "B").End(xlUp).Row To 4 Step -1
If Range("B" & lngRow) <> "" And .IndentLevel = (i) Then
Range("B" & lngRow & ":B" & lngRow).Rows.Group
End If
Next lngRow
Next i
End Sub
Basically, I want to start on Row 4, go to the end of the used range, and
group all data according to the ‘Indent’ of each Row. There can be 0 to 6
IndentLevels.
The code fails on this line:
If Range("B" & lngRow) <> "" And .IndentLevel = (i) Then
The message I get says ‘Compile Error: Invalid or unqualified refernce.’
What am I doing wrong?
Thanks,
Ryan---