i need help on link update macro

[batuka]

Sub data_getir()

Application.DisplayAlerts = False
Application.Calculation = XlCalculation.xlCalculationManual


Dim X As Date
Dim t As Date
Dim AWB As String


    X = Application.WorksheetFunction.WorkDay(Date, -1, Worksheets("Makro").Range("S1:S20"))
    t = InputBox("Lütfen tarih giriniz", "TCU // QNB Finansbank", X)
    r = Application.WorksheetFunction.WorkDay(t, -1, Worksheets("Makro").Range("S1:S20"))
    s = Application.WorksheetFunction.WorkDay(r, -1, Worksheets("Makro").Range("S1:S20"))


kredi = ActiveWorkbook.Name
dizin = ActiveWorkbook.Path


Dim avlinks As Variant
avlinks = ActiveWorkbook.LinkSources(xlExcelLinks)




yil = Year(t)
ay = Month(t)
    If ay < 10 Then
        ay = "0" & ay
    End If
gun = Day(t)
    If gun < 10 Then
        gun = "0" & gun
    End If
aay = MonthName(ay)


'microstrategy bize birgün sonra rapor ürettiği için o günün tarhini veriyor
sistem_yil = Year(t + 1)
sistem_ay = Month(t + 1)
    If ay < 10 Then
        sistem_ay = "0" & sistem_ay
    End If
sistem_gun = Day(t + 1)
    If sistem_gun < 10 Then
        sistem_gun = "0" & sistem_gun
    End If
aay = MonthName(ay)


'Konut dosyasını güncelleme için
eski_yil = Year(r)
eski_ay = Month(r)
    If eski_ay < 10 Then
        eski_ay = "0" & eski_ay
    End If
eski_gun = Day(r)
    If eski_gun < 10 Then
        eski_gun = "0" & eski_gun
    End If
eski_aay = MonthName(eski_ay)


'Konut-oto-tüketici dosyasını güncelleme için
cokeski_yil = Year(s)
cokeski_ay = Month(s)
    If cokeski_ay < 10 Then
        cokeski_ay = "0" & cokeski_ay
    End If
cokeski_gun = Day(s)
    If cokeski_gun < 10 Then
        cokeski_gun = "0" & cokeski_gun
    End If
cokeski_aay = MonthName(cokeski_ay)


tarih = yil & "-" & ay & "-" & gun
sistem_tarih = sistem_yil & "-" & sistem_ay & "-" & sistem_gun




eski_konut = "G:\HOME\MALIKONT\_Hazine_Kontrol\TCU_" & eski_yil & "\Bilanço_Kontrolleri\Krediler\Konut\" & "(" & eski_ay & ")_" & eski_aay & "\" & "KONUT_" & eski_yil & "-" & eski_ay & "-" & eski_gun & ".xlsm"
DirFile1 = "G:\HOME\MALIKONT\_Hazine_Kontrol\TCU_" & yil & "\Bilanço_Kontrolleri\Krediler\Konut\" & "(" & ay & ")_" & aay & "\" & "KONUT_" & yil & "-" & ay & "-" & gun & ".xlsm"
old_DirFile1 = eski_konut
j = 38
If Len(Dir(DirFile1)) > 0 Then
    If Cells(j, 2) = "Evet" And Cells(j, 4) = "Dosya yok" Or Cells(j, 4) = "" Then
    AWB = ActiveWorkbook.FullName
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks
        Cells(j, 4) = "Tamam"
    End If
Else
    Cells(j, 4) = "Dosya yok"
End If

there is no error but i can't update the links at the end of this code you can see
AWB = ActiveWorkbook.FullName
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks

help please i am badly stuck
also i am open to the whole new update macro that can work on another module