Macro for a Border

[JSnow]

I am working on a spreadsheet, columns A through F with many rows. I would
like to add a thick black border around cells Ax:Fx on any given row.
Actually, my target cell will always be in the A column, so when I click on
the macro to execute it cells a:f in that row will be surrounded by thick
black border.

Thanks gang.

 

[Jim Thomlinson]

Sub AddBorder()
Range(Cells(ActiveCell.Row, "A"), Cells(ActiveCell.Row,
"F")).BorderAround _
Weight:=xlThick
End Sub

 

[JSnow]

Thanks, Jim.