Private Sub Worksheet_SelectionChange(ByVal R As Range)
If Not Intersect(R, Columns("B:B")) Is Nothing And R.Count = 1 Then
If ActiveCell.Offset(0, -1) = vbNullString Then
ActiveCell.Interior.Color = vbBlack
Else
ActiveCell.Interior.Color = xlNone
End If
End If
End Sub