Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim snr, idf, pro, suz, reason, result As String
 
If Target.Row = 59 And Target.Column = 17 Then
On Error GoTo 1:
        reason = Cells(52, 5)
        snr = Cells(5, 5)
        idf = Cells(8, 5)
        pro = snr & "_" & idf
        result = Cells(59, 17)
        Windows("aaa.xls").Activate
        Workbooks("aaa.xls").Worksheets("a 2011").Columns("E:E").Select
            Selection.Find(What:=pro, After:=ActiveCell, _
            LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False, _
            SearchFormat:=False).Activate
            Workbooks("aaa.xls").Worksheets("a 2011").Cells(ActiveCell.Row, _
            ActiveCell.Column + 16).Activate
            ActiveCell.FormulaR1C1 = reason
            Workbooks("aaa.xls").Worksheets("a 2011").Cells(ActiveCell.Row, _
              ActiveCell.Column - 1).Activate
            ActiveCell.FormulaR1C1 = result
            Application.ActiveWindow.Visible = True
            Windows("fia.xls").Activate