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

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

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