Formu belirtilen klasöre kaydetmek

[prodigy0]

Merhaba,
Benim ekteki gibi bir formum var,kullanıcı formdaki alanları doldurduktan sonra alttaki buttonları kullanarak ilgiliye kullanıcıya formu gönderiyor.
Yapmak istediğim buttona tıklandığında,butonda ismi yazılı kişiye ait klasöre,formun üst kısmında yazan müşteri ismi ile yeni bir klasör açıp formu buraya kaydetmesi,sonrasında da formu temizlemesi.
Formun düzeni biraz bozuk farkındayım,temizleme fonksiyonu olmasa da kaydetme işlemi yapılabiliyorsa eğer bu konuda yardımlarınızı rica ediyorum.
Teşekkürler

 

[excel03]

merhaba;

Private Sub CommandButton1_Click()'Leyla kullanıcısı için
Yol = ActiveWorkbook.Path
KlasörAdı = Sheets("Sheet1").Range("c9").Value
d = Day(Date)
M = Minute(Now())
H = Hour(Now())
x = d & H & M
MkDir Yol & "\" & CommandButton1.Caption & "\" & KlasörAdı

Sheets("Sheet1").Copy
ChDir Yol & "\" & CommandButton1.Caption & "\" & KlasörAdı
ActiveWorkbook.SaveAs Filename:=Yol & "\" & CommandButton1.Caption & "\" & KlasörAdı & "\" & x & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close True
End Sub

 

[prodigy0]

Yardımınız için çok teşekkürler.
Kaydedilecek path'i nerede belirtmem gerekiyor acaba?