Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' * ' Initialize
      Const HighlightColor As Long = 16774635

      Application.ScreenUpdating = False


' * ' Highlight column and row
      Application.FindFormat.Clear
      Application.ReplaceFormat.Clear
      Application.FindFormat.Interior.Color = HighlightColor
      Application.ReplaceFormat.Interior.Color = xlNone
      Cells.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
      Application.FindFormat.Clear
      Application.ReplaceFormat.Clear
      Application.FindFormat.Interior.Color = xlNone
      Application.ReplaceFormat.Interior.Color = HighlightColor
      Target.EntireRow.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
      Target.EntireColumn.Replace "", "", SearchFormat:=True, ReplaceFormat:=True
      
      
ES: ' End of Sub
      Application.FindFormat.Clear
      Application.ReplaceFormat.Clear

      Application.ScreenUpdating = True

End Sub