نعم شكرا لك على الاضافة المفيدة
و قد أدرجتهابناء على مشاركتك السابقة قبيل توقف الموقع فى الاصدار الجديد الذي سأضيفه قريبا باذن الله و به أيضا بعض التعديلات الأخري ، و كنت قد قاربت على الانتهاء منه قبل توقف الموقع و لكن انشغلت عنه بمشكلة نقل الموقع و ساضيفه قريبا باذن الله تعالي
و اختصارا يمكن حذف هذا Cells(R, 2).Formula = Folderitem.Name
وادراج اضافة البيانات و الارتباط التشعبي مباشرة كما يلي و دون اختيار الخلية كبديل عن السطر السابق و حذفه من الكود حيث ان الجملة التالية تشمل اضافة كل من المعلومة و الارتباط التشعبي معاو لا تحتاج الى اختيار الخلية مما يزيد من سرعة التنفيذ فى حالة البيانات الكثيرة
ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 2), Address:=Folderitem.Path, TextToDisplay:=Folderitem.Name
و سأضيف الاصدار الجديد شاملا هذه الاضافة بناء على اضافتك و أيضا بعض التعديلات الأخرى قريبا باذن الله تعالي
مع الشكر والتقدير