استعمل هذا الكود
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static previous_selection As String
If previous_selection <> "" Then ' ازالة الخافية من الخلية السابقة
Range(previous_selection).Interior.ColorIndex = xlColorIndexNone
End If
'اضافة الخلفية على الخلية الحالية
Target.Interior.Color = RGB(204, 236, 255)
previous_selection = Target.Address
End Sub
و ليعمل فقط على الخلية B7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$7" Then
Range("B7").Interior.ColorIndex = xlColorIndexNone
Else
Target.Interior.Color = RGB(204, 236, 255)
End If
End Sub