السلام عليكم اخي ابو سليمان 
مرفق ملف كنت قد قمت بعملة لحاجة العمل منذ فترة تتجاوز 3 سنوات بة طلبك 
عند الضغط على حرف N في الصورة يتم استجلاب بيانات من موجودة بملف اخر على الشير بجهاز كمبيوتر ثاني 
والكود 
Set SourceWB = Workbooks.Open("\\192.168.1.100\C$\book.xls", False, True)
CO2.rar