Highlight Selected Column

  Application.ScreenUpdating = False
     
     If Target.Cells.Count > 1 Then Exit Sub
 
     '// Clear the color of all cells
     Dim lastColumn As Integer
     lastColumn = Cells(15, Columns.Count).End(xlToLeft).Column
     
     Dim lasRow As Integer
     lasRow = Cells(Rows.Count, 16).End(xlUp).Row

     Range("A16:XFD1048576").Interior.ColorIndex = 0
     
     If Not Intersect(Target, Range(Cells(16, "A"), Cells(lasRow, lastColumn))) Is Nothing Then
     
        With Target
            
            '// Highlight row of the selected cell
            .EntireRow.Interior.ColorIndex = 38
            
            '// Highlight column of the selected cell
            '//.EntireColumn.Interior.ColorIndex = 24
            
        End With
        
      End If

 

프로그램 동작 화면

 

https://www.ablebits.com/office-addins-blog/highlight-active-row-column-excel/

How to highlight active row and column in Excel

 

https://www.officetutor.co.kr/board/Dtype/bfrmvw.asp?f_tn=Dqa_excel_n2&f_bno=123981&page=5&fchk=&fval= 

오피스튜터 - 강좌: Worksheet _change 이벤트 핸들러 설계하기

참고 사이트