ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Highlight column headings when cursor is in a cell. (https://www.excelbanter.com/excel-discussion-misc-queries/35323-highlight-column-headings-when-cursor-cell.html)

ktho07

Highlight column headings when cursor is in a cell.
 
When navigating a spreadsheet (e.g. cursor is placed in B12), I would like
the letter Column Heading "B" and the Row Heading "12" to highlight in a
different color other than standard gray. When moving cursor, each
Heading/Row you pass through would change to a specified color - then
returning to gray once you leave the cell.

Bob Phillips

It already goes bold.

Perhaps this alternative might help


'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----------------------------------------------------------------
Cells.FormatConditions.Delete
With Target
With .EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With
With .EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
.Interior.ColorIndex = 20
End With
End With

.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
.FormatConditions(1).Interior.ColorIndex = 36
End With

End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"ktho07" wrote in message
...
When navigating a spreadsheet (e.g. cursor is placed in B12), I would like
the letter Column Heading "B" and the Row Heading "12" to highlight in a
different color other than standard gray. When moving cursor, each
Heading/Row you pass through would change to a specified color - then
returning to gray once you leave the cell.





All times are GMT +1. The time now is 12:28 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com