Revise formula (Stop color line)

[ironsides]

Sub ColorLine()
Dim LR As Long, i As Long
LR = Range("g" & Rows.Count).End(xlUp).Row
For i = 7 To LR
With Range("g" & i)
If .Value = "" Then .Offset(, -6).Resize(, 28).Interior.ColorIndex = 4
End With
Next i
End Sub

Formula works well
except I want the color to stop on col AC
instead of continuing across entire sheet

 

[NeonRedSharpie]

Sub ColorLine()
    Dim LR As Long, i As Long
    LR = Range("g" & Rows.Count).End(xlUp).Row
    For i = 7 To LR
        If Cells(7, i) = "" Then Range(Cells(i, 1), Cells(i, 29)).ColorIndex = 4
    Next i
End Sub

Edited because I misread the with statement.

 

[ironsides]

Thanks but the color line
still continues past the col specified
continuing across the entire sheet


ironsides

 

[NeonRedSharpie]

Thanks but the color line
still continues past the col specified
continuing across the entire sheet


ironsides

That's impossible. Is there other code that is going into this macro? The range that I specify:

[COLOR=#333333]Range(Cells(i, 1), Cells(i, 29)).ColorIndex = 4[/COLOR]

Is from column 1 (A) to column 29 (AC). It doesn't affect any other cells outside of that.

Sub ColorLine()
    Dim LR As Long, i As Long
    LR = Range("g" & Rows.Count).End(xlUp).Row
    For i = 7 To LR
        If Cells(i, 7) = "" Then Range(Cells(i, 1), Cells(i, 29)).ColorIndex = 4
    Next i
End Sub

I did notice a small error so I just fixed that....