Highlighting position indicator column header

[Visor]

Dear friends of the forum, I have been trying to do that to be located in any cell in a column display a placeholder, as happens with the letters columns exce but here testify in the hours of the header it look highlighted being in any cell in the respective column of range C: BT
climb the example sheet like display testify in Sheet1
like the example of the leaf, but only cell and header (hours)

Thank you for the cooperation

 

[eibi]

Does this do it? (See attached.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim datarng As Range

Set datarng = Sheets("Hoja1").Range("C5:BT28")

If Not Intersect(Target, datarng) Is Nothing Then

    With Sheets("Hoja1").Range("C4:BT4")
   
        .Font.Bold = False
        .Interior.Color = xlNone

    End With

    With Sheets("Hoja1").Cells(4, Target.Column)
   
        .Font.Bold = True
        .Interior.Color = 65535
       
    End With
   
End If
     
End Sub

 

[Visor]

That's right, it's just like I wanted. It's great
Your you imagine how many people will like this solution, it is very required by many.
I really appreciate your excellent collaboration

I had a curiosity, you have seen the effect of magnifying glass?, could you get to do that effect in the cell header ??

If you can not no problem, thank you very much