Auto change borders to thick borders

Originally Posted by GC Excel

Hi Pierce,
It is only possible with a macro.
Copy this macro in your SHEET module. Double click on cell A1 to activate the macro.
Note : you can remove the conditional formatting for the horizontal line.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim rg As Range, c As Range
   If Not Intersect([A1], Target) Is Nothing Then
      Set rg = Range("E2:E" & Range("E" & Rows.Count).End(xlUp).Row + 1)
      For Each c In rg
         With c.Offset(0, -4).Resize(1, 6).Borders(xlEdgeTop)
            .LineStyle = xlNone
            If c.Offset(-1, 0).Value <> c.Value Then
               .LineStyle = xlContinuous
               .Weight = xlMedium
            End If
         End With
      Next c
   End If
   Cancel = True
End Sub

Thank you very much! I changed the format to a macro enabled workbook, but am unsure exactly how to copy the macro properly, Im very new to VB, only having completed a quick 'Hello World" intro a few years ago. Could you please advise me on the procedure to copy the macro into my sheet module? Thanks!