VBA Identify number in column and underline border in row

[jakobt]

I have a table with account codes in column A. The accounts are 4 digits between 1000-9000. But not all accounts are used
After Account 3999 I want to insert a thick border underline in that row.

I want to develop a macro which can identify which row is below account 3999 and insert a thick border line in column A to column AA.

 

[nemmi69]

Will this do?

Option ExplicitDim LastRowNo As Long
Dim ACloop As Long


Sub AcUnderline()
LastRowNo = Range("A65536").End(xlUp).Row


If LastRowNo > 1 Then
    For ACloop = 1 To LastRowNo
        If Range("A" & ACloop).Value > 3999 Then
                With Range("A" & ACloop & ":AA" & ACloop).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
    End With
        End If
    Next ACloop
End If
End Sub

 

[jakobt]

Receiving an error:
Compile error:
Expected: Base or Compare or Explicit or Private

 

[nemmi69]

That's clever. It needs a return after option explicit. The dim should be on another line

 

[jakobt]

Thanks great nearly there.

It inserts a boarder under each account after 3999. However the intention is just to insert a border under the row with account 3999.

For now all accounts above 3999 has a border highlight.

 

[nemmi69]

You could stick an "Exit For" after the "End With" which will stop after the find and underline.