Macro to produce Thick Border Box

[alansidman]

try this:

Option Explicit

Sub bold()
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
Dim c As Range
Dim rng As Range
Set rng = Range("A1:A" & lr)

For Each c In rng
If c.Font.bold = True And Len(c.Offset(0, 1)) > 0 Then
    c.Resize(, 5).Select
    Selection.BorderAround Weight:=xlThick
End If
Next c
MsgBox "complete"
End Sub