UpdateLink debug please help

[batuka]

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
    ActiveWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources, Type:=xlExcelLinks
        Cells(j, 4) = "Tamam"
    End If
Else
    Cells(j, 4) = "Dosya yok"
End If

i got debug on
ActiveWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources, Type:=xlExcelLinks

i need to update links on this workbook please help