Insert Border When A Value Changes

[hrayani]

Hello Friends,

I am using the below code ( i found it on the web) to insert a border from Column A to L whenever a value changes in column B.

Sub Test()      
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("B4:B" & LastRow)
        If rng <> rng.Offset(1, 0) Then
            Range("A" & rng.Row & ":L" & rng.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
            
            
            
        End If
    Next rng
  
End Sub

What i want is a thick border line whereas the code is inserting a thin line. I am sure a small change is needed in the code but i am unable to do it.

Any help would be appreciated.

Regards,

Humayun

 

[James006]

think i should start a new thread clearly mentioning as the problem of the current thread is solved

You are right ...