Excel İsimlerini Girdiğimizde PDF ye çevirecek buton

[owertake]

Merhabalar;
Elimdeki excel dosyalarının isimlerini veya numaralarını girdiğimde pdf ye dönüştürecek buton tasarlamak istiyorum. Converter mantığında. VBA üzerinden excel içerisinde oluşturuyorum fakat kapat aç yaptığımda makroları siliniyor. x ve y Excel dosyaları içlerinde bağımlı çalışıyor ve z excel dosyasına sonuç gönderimi sağlıyor. Bende x ve y dosyalarını görünmesini önlemek ve her alacağım pdf için excel açıp tek tek kaydetmekle uğraşmaktansa örnek olarak buton isminde bir excel açıp içerisine buton ekleyip o butonda hangi excel dosyasını pdf olarak dönüştüreceğimi seçip dönüşümünü sağlamak istiyorum.Ortalama z excel dosyası gibi 50 adet excel dosyası var. Yardımcı olurmusunuz?

Örnek Kullandığım Makro Kodu:
Sub PDF()
'
' PDF Makro
'

'
Dim sFile As String

sFile = Application.DefaultFilePath & "\" & _
ActiveWorkbook.Name & ".pdf"

Sheets("Sheet1").Select
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=sFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

 

[owertake]

Kayıt işlemini buldum, Fakat bir textbox mantığında altında da pdf ye dönüştür şeklinde buton koyarak excel ismini textbox a yazıp pdfye dönüştür deyip dönüştürmem lazım.