Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range("Таблица1")
If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Not Intersect(Target, WorkRange) Is Nothing Then
Set CrossRange = Intersect(WorkRange, Target.EntireRow) 'это окрас строк+столбец Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
WorkRange.FormatConditions.Delete 'эта строка делает так, чтобы выделение не оставалось
CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
CrossRange.FormatConditions(1).Interior.ColorIndex = 17
Target.FormatConditions.Delete 'эта строка убирает заливку в активной ЯЧЕЙКЕ (она становится белой)
End If
End Sub
[vba][code]