Application.ScreenUpdating = False
Application.Calculation = xlManual
 name1 = Application.Sheets.Item(1).Name 
 name2 = Range("a3").Value
 name3 = Range("d3").Value
 For i = 1 To 5 ' 
   For j = 3 To 4
   If Sheets("t").Cells(j, 1).Value <> "" Then
                            name2 = Sheets("t").Cells(j, 1).Value
   End If
    name3 = Sheets("t").Cells(j, 4).Value
    s5 = Mid(Str(i), 2, Len(Str(i)) - 1)
    Sheets("t").Cells(j, (i * 4) + 1).Select
    ActiveCell.Formula = "='X:\_o_05_excel\test1\" + name2 + " ych\[" + name3 + ".xlsx]" + s5 + "'!$G$5"
    Sheets("t").Cells(j, (i * 4) + 2).Select
    ActiveCell.Formula = "='X:\_o_05_excel\test1\" + name2 + " ych\[" + name3 + ".xlsx]" + s5 + "'!$G$11"
    Sheets("t").Cells(j, (i * 4) + 3).Select
    ActiveCell.Formula = "='X:\_o_05_excel\test1\" + name2 + " ych\[" + name3 + ".xlsx]" + s5 + "'!$G$12"
   Next j
 Next i
Application.Calculation = xlCalculationAutomatic