Auto Highlight Active Row and Column

This post will guide you how to highlight the active row and column in Excel. How do I highlight row and column of active cell with Excel VBA Macro. How to highlight the active row or column when a cell is selected.

Auto Highlight Row or Column of Active Cell


When you select one cell and you want the row and column in the active cell to auto-highlight. How to achieve it. You should be write a VBA Macro or user defined function to achieve the result. Just do the following steps:

#1 right click on the sheet tab, and select view code from the popup menu list. And the Visual Basic For Application dialog will open.

auto highlight row or column of active cell1

#2 type the following VBA Macro into the code window. And save and close the VBA window.

auto highlight row or column of active cell2

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    If Target.Cells.Count > 1 Then Exit Sub
    With Target
        ' Highlight the entire row and column that contain the active cell
        .EntireRow.Interior.ColorIndex = 6
        .EntireColumn.Interior.ColorIndex = 6
    End With
    Application.ScreenUpdating = True
End Sub

#3 select one cell, the entire row and column of active Cell are auto-highlighted.

auto highlight row or column of active cell3

Auto Highlight Active Cell


If you want only to highlight the active cell, you can use the following VBA Macro:

highlight active cell1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    ' Highlight the active cell
    Target.Interior.ColorIndex = 6
    Application.ScreenUpdating = True
End Sub

highlight active cell2

Auto Highlight Row and Column within the Current Region


If you want to highlight only the row and column within the current region in worksheet, you can use the following VBA Macro:

highlight row and column within region1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveCell
        ' Highlight the row and column within the current region
        Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 6
        Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 6
    End With
    Application.ScreenUpdating = True
End Sub

highlight row and column within region2

Auto Highlight Row and Column with Double-click Cell


If you want to auto-highlight row and column when you double click a cell, you can use the following VBA macro:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Step 1:  Declare Variables
    Dim strRange As String
'Step2:  Build the range string
    strRange = Target.Cells.Address & "," & _
               Target.Cells.EntireColumn.Address & "," & _
               Target.Cells.EntireRow.Address
'Step 3: Pass the range string to a Range
    Range(strRange).Select
End Sub

 

 

Leave a Reply