Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
Sheet2.Range("A2") = Target.Value

End Sub

Regards, TMS