تحديث بيانات شيت اوتوماتيك

[amrhosny]

السلام عليكم ورحمة الله وبركاته

عندى شيت بياخد بيانات من شيت اخر وكنت اريد تحديث للبيانات اوتوماتيكا اذا تغيرت فى الشيت الاصلى

عند بحثى وجدت كود من قبل الاستاذ الفاضل ياسر

Private Sub Workbook_Open()
'UpdateLinks All Links
'---------------------
    Dim MyLink As Variant

    For Each MyLink In ActiveWorkbook.LinkSources(xlExcelLinks)
        ActiveWorkbook.UpdateLink Name:=MyLink, Type:=xlExcelLinks
    Next MyLink
End Sub

ولكنه لا يعمل معى

هل من الممكن ان اعرف السبب

شكرا جزيلا

تم تعديل يونيو 16, 2019 بواسطه amrhosny