Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
With ActiveCell
On Error Resume Next
Range(Cells(Target.Row, "B"), Cells(Target.Row, "G")).SpecialCells(xlCellTypeBlanks).Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub