ذخیره فایل در پوشه موردهای انتخابی

[ali.b]

با سلام و خسته نباشید خدمت اساتید محترم
ی فایل دارم که ی کد توش قرار دادم . کار این کد اینه که فقط شیت جاری رو به صورت یک فایل اکسل جداگانه با نام مورد نظر در سلول خاص ذخیره میکنه
حالا می خوام بدونم امکان داره که شرطی ایحاد بشه که برحسب نام اون سلول در پوشه مورد نظر ذخیره بشه
مثلا وقتی تو سلول a1 نوشته a با زدن کلید صفحه جاری تو پوشه a ذخیره بشه واگه b نوشتم بره تو پوشه b

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[~M*E*H*D*I~]

اگر سلول مذکور a1 باشه

Sub a()
MkDir "C:\Documents and Settings\vatan\Desktop\" & Range(a1).Value
End Sub 

[ali.b]

من اینو کجا وارد کنم؟
برای a هست برای b چطور؟

[ali.b]

کدی که اقای قاسمیان دادن
هم حل شد

ActiveWorkbook.SaveAs Filename:="C:\" & Range("A2").Value & "\" & Range("A4").Value & ".xlsx