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

[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