طلب كود لاعادة تسمية أي ملف

[الحضرمي2017]

السلام عليكم ورحمة الله وبركاته 

كيف حالكم أخوتي الاحبة أسأل الله ان تكون بخير وعافية أنتم وجميع من تحبون 

لو تكرمتم اريد المساعدة في كود يعيد تسمية أي ملف اكسل الى تسمية أنا أحددها وياريت يكون ضبط مسار الملف بحيث يكون في نفس مجلد العمل نفسه سأضع صورة توضيحية لما اريد

بالامس كنت أبحث في النت ووجدت هذا الكود 

Name "\*.xlsx" As "\1.xlsx"

 

وهذه صورة توضيحيه لما اريده