I have this simple VBA which paints the cell backgrounds for the whole row and column in which a cell exists a bright yellow.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
With ActiveCell
.EntireRow.Interior.ColorIndex = 36
.EntireColumn.Interior.ColorIndex = 36
End With
End Sub
I would like, instead, to paint the TOP and BOTTOM borders of the cells in the ROW a bright medium-width blue, and the LEFT-side and RIGHT-side borders of the cells in the COLUMN the same way. I'm not sure how to craft the two statements ("EntireRow..." and "EntireColumn...") in the code to accomplish that. Help appreciated. Thanks.
- Jim
Bookmarks