I am having problems with the code below, I just can't seem to get it to work...I tried using range and cell for selection and for the then statement but kept getting errors

Private Sub Worksheet_SelectionChange(ByVal Target As Range
Dim selection, val, cel
selection = ActiveCell ' should be sheet1 with range e1:e20 the only cells able to cause this to star
val = worksheets("sheet2").Range("e13:e200"
For Each cell In va
If cell = selection The
ActiveCell.Activate ' should link to first cell on sheet2 with matching value and highlight the row of this cel
worksheets("sheet2").Activat
End I
Nex
End Su

Any help would be greatly appreciated
Thank
Paul