صراحة من الصعب التجربة دون وجود نسخة الاوفيس 2007 و من الافضل ان تحاول ترقية النسخة اذا تيسر لك ذلك من ناحية اخري جرب التالي: اولا عند توقف الكود قف بالماوس عند كل متغير فى السطر الاصفر ، و اكتب القيمة التي تظهر لك هنا ثانيا جرب تعريف المتغيرات كلها فى البداية Dim iRow, FileNum As Integer Dim OutFilePath As String ثالثا  افتح  Tools  references  واكتب ما هي ال  Missing references التي تظهر  و اكتبها هنا ثم بعد ذلك جرب ازال