
Dim OldCell As String, col As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Range("A3:I14"), Target) Is Nothing Then
Range(OldCell).Interior.ColorIndex = col
col = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
OldCell = Target.Address
End If
End Sub |
