Boarder issues VBA

[Livin404]

Greetings, I grabbed the following VBA from Mr. Excel, and it works great except for the bottom border starting on Column J and bottom of row 1. Everything otherwise is perfect. Thank you,

Sub TheWall()

Application.ScreenUpdating = False
Dim lngLstCol As Long, lngLstRow As Long

lngLstRow = ActiveSheet.UsedRange.Rows.Count
lngLstCol = ActiveSheet.UsedRange.Columns.Count

For Each rngCell In Range("A1:A" & lngLstRow)
    If rngCell.Value > "" Then
        r = rngCell.Row
        c = rngCell.Column
        Range(Cells(r, c), Cells(r, lngLstCol)).Select
            With Selection.Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = xlAutomatic
            End With
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[Fluff]

That code is not putting a thick border on row 1, either it's already there, or you have some other code putting it in.

 

[Livin404]

That code is not putting a thick border on row 1, either it's already there, or you have some other code putting it in.

You're correct, it took me a little to find it, but it's sored now. Thank you

 

[Fluff]

Glad you sorted it & thanks for the feedback.