استاذنا القدير مع شكري وتقديري لم يتم التوصل الى الغاية المطلوبه رغم تطبيق التوجيهات بحذافيرها حيث ادرجت مجلد الحفظ في (E:new folder) وتم تكوين الرقم ولكن لم يتم الحفظ والنص الذي يؤشر بالاصفر ضمن الكود هو : ActiveWorkbook.SaveAs Filename:=FN, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False ActiveWorkbook.SaveAs Filename:=FN, FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=Fal