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