عمل " حفظ باسم " عن طريق كود VBA

[MOHAAPE-ATn]

السلام عليكم ورحمة الله وبركاته 
اخواني واحبابي حدا بيعرف يكتب عن طريق VBA دالة الحفظ باسم 

بمعني بدي وقت فعل التعليمة يدخل الاكسل على ملف ويفتحلي حفظ باسم مثل الصورة  555 ويكمل و يعمل ملف جديد (new folder) باسم انا اختارو لنفرض " الحفظ التلقائي 1 "
وبعدها يحفظ الملف في مكان انا حددو مثلا "\:D " وبشرط ان يكون اسم ملف الاكسل  باسم خلية معينة موجود في صفحة الاكسل يلي بدي احفظها 

انا كتبت هل تعليمة بس ما حسنت كمل فيها غلط ماعم اعرف صلحو وما عم ينشأ مجلد جديد ابداً

 

 

ActiveWorkbook.SaveAs Filename:=" D:\( 1الحفظ التلقائي)\ (  " A66 ") .xlsx", _

        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

 

 

هل هذا صعب ؟؟؟
لاتبخلو عليي 
ولكم مني جزيل الشكر