Update VBA code from cell shading to cell border

[darceyd]

Hi All
My first time to post!! I've been working all day on this & cant figure it out Any help wld be MOST appreciated!! I have this macro that works perfectly:

Sub HTH()
Dim rFound As Range
Dim lFirstRow As Long

With Range("B:B")
If [A1] = "" Then Exit Sub
Set rFound = .Find([a1], LookIn:=xlValues)
If Not rFound Is Nothing Then
lFirstRow = rFound.Row
Do
Rows(rFound.Row).Columns("B:Q").Interior.ColorIndex = 6
Set rFound = .FindNext(rFound)
Loop While Not rFound Is Nothing And rFound.Row > lFirstRow
End If
End With

End Sub


I'd like to update it to remove the yellow shading (interior.colorindex=6) & add the below border on all sides of the row i.e. columns B:Q

.LineStyle = xlDouble
.Color = -6279056
.TintAndShade = 0
.Weight = xlThick


I cant get it to work once I delete the shading code and try to add code for the bordering
Thank you!!!

[scottintexas]

Simply select the range then use the "Borders" to set the lines.

Please Login or Register  to view this content.

[darceyd]

This was the code i tried but it gives me the error "object doesnt support this property or method"???

Sub HTH()
Dim rFound As Range
Dim lFirstRow As Long

With Range("B:B")
If [a1] = "" Then Exit Sub
Set rFound = .Find([a1], LookIn:=xlValues)
If Not rFound Is Nothing Then
lFirstRow = rFound.Row
Do
Rows(rFound.Row).Columns ("B:Q")
Range("B1:Q1").Select
With Selection.borders(xlEdgeLeft)
.LineStyle = xlDouble
.ColorIndex = -6279056
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.borders(xlEdgeTop)
.LineStyle = xlDouble
.ColorIndex = -6279056
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = -6279056
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.borders(xlEdgeRight)
.LineStyle = xlDouble
.ColorIndex = -6279056
.TintAndShade = 0
.Weight = xlThick
End With
Set rFound = .FindNext(rFound)
Loop While Not rFound Is Nothing And rFound.Row > lFirstRow
End If
End With

End Sub