Highlight active cell

[DDH]

If the cell was normally highlighted Yellow but it would change to Blue when you were on it, then change back to yellow when you moved to the next cell.

Thank you for your help.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.ScreenUpdating = False
'Clear the color of all cells
Cells.Interior.ColorIndex = 0
' Highlight the active cell
Target.Interior.ColorIndex = 20
Application.ScreenUpdating = True

End Sub

 

[Scott Huish]

Assuming you're not using Conditional Formatting on your sheet, this will change the selection to blue and will change it back to whatever it was before when you make another selection.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.FormatConditions.Delete
With Target.FormatConditions
    .Add Type:=xlExpression, Formula1:="=TRUE"
    .Item(Target.FormatConditions.Count).SetFirstPriority
    .Item(1).Interior.ColorIndex = 20
End With
End Sub