A co takto?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Radek As Long
Radek = ActiveCell.Row
Cells.Interior.ColorIndex = xlNone
Cells(Radek, 2).Interior.ColorIndex = 3
Cells(Radek, 6).Interior.ColorIndex = 3
End Subcitovat
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Radek As Long
Radek = ActiveCell.Row
Cells.Interior.ColorIndex = xlNone
Cells(Radek, 2).Interior.ColorIndex = 3
Cells(Radek, 6).Interior.ColorIndex = 3
End Subcitovat