Scenario
Hi All
Is there a piece of code that will put a border all round a cell, other than using four bits of code, one for each edge?
Solution
Try this:
Sub xxx()
With ActiveCell
.BorderAround ColorIndex:=3, Weight:=xlThick
End With
End Sub
SOURCE | LINK | LANGUAGE | ENGLISH |