Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim curCell As Range
Dim fCell As Range
'Check if we're in the range of interest
If Intersect(Target, Range("3:12")) Is Nothing Then Exit Sub
Set curCell = ActiveCell
Set fCell = Range("C:C").Find(Cells(ActiveCell.Row, "A").Value)
'Check if value in col A found in table below
If fCell Is Nothing Then Exit Sub
Application.EnableEvents = False
Union(ActiveCell.EntireRow, fCell.EntireRow).Select
curCell.Activate
Application.EnableEvents = True
End Sub