Adding a bold line

[Navvy]

Hi all...

Could you possibly tell me how to add a bold line in Excel. My code is as follows:

Sub Clear_Fields()

Dim Store_NB As Long
Dim Store_Instrument As String

Set FixWS = Workbooks("My.xls&quot.Worksheets("ABC&quot

rr = 2
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value

rr = rr + 1

While (FixWS.Cells(rr, 1).Value <> &quot;&quot
If (FixWS.Cells(rr, 1).Value = Store_NB) Then
FixWS.Cells(rr, 1).ClearContents
FixWS.Cells(rr, 2).ClearContents
Else
Store_NB = Cells(rr, 1).Value
Store_Instrument = Cells(rr, 2).Value
End If
rr = rr + 1
Wend

End Sub


....so, each time a new Store_NB is found I would like a line added above it across the sheet. This will make it slightly more presentable and differentiate between values.

I've tried inserting a macro, but that looks messy!

 

[ide]

...
else
With Rows(rr & &quot;:&quot; & rr).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
...

 

[Navvy]

Thanks Ide...that worked perfectly!