active cell bold

[Dtech]

Im trying to make the active cell either bolded or highlighted. Is that
possible?

 

[CLR]

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
With Cells.Font
.FontStyle = "Regular"
End With
With ActiveCell.Font
.FontStyle = "Bold"
End With
End Sub

Vaya con Dios,
Chuck, CABGx3

 

[FSt1]

hi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
With Cells.Font
.FontStyle = "regular"
End With
ActiveCell.Interior.ColorIndex = 6 'yellow
With ActiveCell.Font
.FontStyle = "bold"
End With
End Sub

regards
FSt1

 

[Dtech]

Can I have that a little slower so my small brain can take it in? Are these
formulas added to the entire selection? Sorry.

 

[Peo Sjoblom]

They are not formulas, formulas cannot do this. You would need event macros
Right click the sheet tab where you want this to happen and select view
code. then paste in the code. Press Alt + q and save the workbook

 

[Dtech]

Thats frickin awesome. Thanks a bunch.

They are not formulas, formulas cannot do this. You would need event macros
Right click the sheet tab where you want this to happen and select view
code. then paste in the code. Press Alt + q and save the workbook

 

[Gord Dibben]

Just as long as you realize that this wipes out color formatting from every cell
other than the active cell with no going back.


Gord Dibben MS Excel MVP

 

[CLR]

Right on Gord............that's why I stuck with just the "bolding" part in
my response.

Vaya con Dios,
Chuck, CABGx3