Здравствуйте, IldarIDC!
Не знаю подойдет ли такое решение, но попробуйте вот этот макрос,
он делает то что Вам надо
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Cells.ClearFormats
Columns(ActiveCell.Column).Interior.Color = vbRed
Rows(ActiveCell.Row).Interior.Color = vbRed
End Sub