I have a button in excel to convert to pdf and then save different locations

[ojabba1]

Hi,
I have been currently using a VBA code that I recorded to save my excel work sheet as PDF in a specific location, I now want others to use also. How can I change the code to prompt users to use save as? So they save in a location that is not predetermined by me.

Sub SaveSend()
'
' SaveSend Macro
'

'
Sheets("Tool Box # 19").Unprotect ("q")
c00 = "C:\Users\johna\Coastal Computer Medics\After Sales Service - Perry Construction Folder\WH&S\Saved Tool Box Talks\2021 records\"
With Sheets("Tool Box # 19")
.ExportAsFixedFormat xlTypePDF, c00 & .Range("B6") & " " & .Range("H8") & " " & " (" & Format(Now, "dd-mm-yyyy") & ")" & ".pdf", , , , , , True
End With



End Sub

 

[johnnyL]

How about replacing:

c00 = "C:\Users\johna\Coastal Computer Medics\After Sales Service - Perry Construction Folder\WH&S\Saved Tool Box Talks\2021 records\"

with:

        Application.FileDialog(msoFileDialogFolderPicker).Show
        c00 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"

 

[ojabba1]

How about replacing:

c00 = "C:\Users\johna\Coastal Computer Medics\After Sales Service - Perry Construction Folder\WH&S\Saved Tool Box Talks\2021 records\"

with:

        Application.FileDialog(msoFileDialogFolderPicker).Show
        c00 = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) & "\"

Great that works fantastic.

 

[johnnyL]

Glad to hear it.