Něco jako tohle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bunka As Range
Dim Oblast As Range
Set Oblast = Range("A1:B10")
 For Each Bunka In Oblast
    If Bunka.Value = 1 Then
        Bunka.Interior.ColorIndex = 4
    Else
        Bunka.Interior.ColorIndex = xlNone
    End If
 Next Bunka
End Sub