Highlighting active row and active column

[NewOrderFac33]

This post can be deleted as I figured out the solution, but the option to delete is no longer available.

Regards

Pete

 

[silentwolf]

Hi Pete,
if you add this code to the worksheet_SelectionChange Event it should do what you are after.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("A1:XFD1048576").Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 6
    Target.EntireColumn.Interior.ColorIndex = 6
End Sub

HTH

Albert