Private Sub CommandButton1_Click()
Dim pdfFile As Variant
Dim selPDF As Variant
pdfFile = Application.GetSaveAsFilename(InitialFileName:=ThisWorkbook.ActiveSheet.name, FileFilter:="PDF Files (*.pdf), *.pdf")
pdfPath.Value = pdfFile
pdfPath.Locked = True
End Sub
Well, this...