Seçilen alanı renklendirmeye yarayan VBA kodu alternatifidir.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oncekiHucre As Range
If Target.Interior.ColorIndex <> xlColorIndexNone Then
oncekiHucre.Interior.ColorIndex = xlColorIndexNone
Exit Sub
ElseIf Not oncekiHucre Is Nothing Then
oncekiHucre.Interior.ColorIndex = xlColorIndexNone
End If
Target.Interior.ColorIndex = 6
Set oncekiHucre = Target
End Sub