Option Explicit
Dim k_key, k_value

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If k_key = 0 Then
  k_value = 0
  k_key = 1
Else
  k_value = 1
  k_key = 0
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If k_value = 1 Then
  With Target.Interior
    .Color = Cells(1, 1)
  End With
End If

End Sub