Userform'un kendisini PDF olarak masaüstüne otomatik kaydetme

Merhaba
Yeni bir makro ile karşınızdayım.Bu makro userform üzerinde birçok veri varsa ve bu verileri referans bazında arşiv yapıyorsak her defasına resmini çekmek yerine makro sizin yerinize pdf formatında masaüstüne kaydediyor.Tek yapmanı gereken aşağıdaki makroyu koymak için userform üzerine 1 adet commandbuton koymanız ve makroyu içine yerleştirmenizdir. Makro içindeki noktalı kısımları dosya adınız olarak yazdığınızda işlem tamamdır.
Umarım işinize yarar.

Private Sub CommandButton1_Click() Dim wb As Workbook Dim sh As Worksheet ' CommandButton1.SetFocus AltPrintScreen DoEvents ' Application.ScreenUpdating = False ' Set wb = Workbooks.Add(template:=xlWBATWorksheet) Set sh = wb.Sheets(1) ' sh.Paste ' With sh.PageSetup .FitToPagesTall = 1 .FitToPagesWide = 1 .Orientation = xlLandscape 'bu komut sayfanın yatar çıkmasını sağlar dikey istiyorsan xlPortrait yapmalısın .Zoom = False sh.Range("Z1") = Workbooks("...........").Sheets("........").Range("CP1") ' proje adını dosya adı olarak yazar 'noktalı alanlara excel kitap adını yazınız.(örnek: abc.xls) 1 yazan yer dosyaya tarihten önce parça kodunu yazması içindir.İlgili hücreye parça kodunu otomatik getirtmelisiniz. sh.Select yol = CreateObject("WScript.Shell").SpecialFolders("Desktop") 'kullanan kişinin masaüstüne kaydeder isim = Range("Z1") & "-" & Format(Now, "yyyy-mm-dd-hh-mm") sh.Range("A1:U40").Select 'resim sayfaya oturmuyorsa hücre aralığını genişletebilirsiniz. Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol _ & "\" & isim & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False MsgBox "Masaüstüne Kaydedildi" ' wb.Close False ' Application.ScreenUpdating = True ' Set sh = Nothing Set wb = Nothing End With End Sub