bolding a row when cell is selected

[deedee88]

Hi

I would like excel to bold the entire row when a cell is selected, but it should go back no its normal formatting when the cell is not longer selected.

I saw something like this in the forum, but now I can't seem to find it.

Thank you,

 

[Smitty]

This may be what you're after:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_SelectionChange(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Excel.Range)<br>    Cells.Font.Bold = <SPAN style="color:#00007F">False</SPAN><br>    ActiveCell.EntireRow.Font.Bold = <SPAN style="color:#00007F">True</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[nbrcrunch]

this one does cross hairs. I don't remember the author

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Wipe out existing formatting
' Note: this wipes out all existing interior cell colors!
Cells.Interior.ColorIndex = xlNone
' Color the Active Row
With ActiveCell.EntireRow.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
' Color the Active Column
With ActiveCell.EntireColumn.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub

 

[jim may]

This might be terribly wrong (causing some other problem), but this seemed to work for me... Paste the code into the objecy module of the Sheet you are working with...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static lastrow As Long

On Error Resume Next
Range(lastrow & ":" & lastrow).EntireRow.Font.Bold = False
Target.EntireRow.Font.Bold = True
lastrow = Target.Row
End Sub

 

[jim may]

What if you ALREADY have Required Bolding in affect in an area of your sheet
and you select it. Wont this destroy the original bolding effect? Hummmmm...