選択されたセルの行と列をハイライト表示する

ThisWorkbook に記述

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = True
End Sub

ハイライトしたいセル範囲の条件付き書式に設定

=OR(CELL("ROW")=ROW(), CELL("COL")=COLUMN())