استعمل هذا الكود 
 
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