Macro to Indent Text in cell

[storm925]

Here is a macro that I tried writing, however I can't get it to run...

Sub Indent_Row()
Dim LR As Long
LR = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For i = LR To 3 Step -1
If ActiveSheet.Cells(i, "B") = "Days" _
Then cell.Select
Selection.IndentLevel = 2
Next i
End Sub


I'm getting my error in the Select area. Any help would be awesome, thank you for reading my post. --Ben

 

[kpark91]

Try replacing

If ActiveSheet.Cells(i, "B") = "Days" _
Then cell.Select
Selection.IndentLevel = 2

with

If ActiveSheet.Cells(i, "B") = "Days" Then
Cells(i, "B").IndentLevel = 2
End If

 

[jmthompson]

Sub Indent_Row()
Dim LR As Long
LR = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
For i = LR To 3 Step -1
If ActiveSheet.Cells(i, "B") = "Days" _
Then ActiveSheet.Cells(i, "B").InsertIndent 2
Next i

End Sub

 

[storm925]

Just want to say thank you, both worked liked a charm. --Ben