Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim c As Range, cel As Range
If Target.Count < 2 Then Exit Sub
Target.Value = Target(1, 1)
Set c = Range("bb5:bb7").Find(Target(1, 1).Value, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
For Each cel In Target
cel.Interior.Color = c.Interior.Color
Next
Else
Selection.Interior.Color = Range("bc7").Interior.Color
End If
Cancel = True
End Sub