tento kod vlozte do modulu listu, ve kterem chcete mit tuto vlastnost obarveni bunek...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 8, Target.Column + 7)).Interior.ColorIndex = 6
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(Cells(Target.Row + 1, Target.Column), Cells(Target.Row + 8, Target.Column + 7)).Interior.ColorIndex = 6
End Subcitovat