VBA Help - Save as PDF, Save to Desktop (Any User), File Name

[Zef05]

Hi!

I am trying to create a sales form for my four-man team.
I have codes for saving the file as PDF, using a filename in a designated cell, but it only works on my computer.
I was wondering if there is a way to use the same file and just save it to their desktops.

Thank you!

 

[Zef05]

You need to put the sheetname and cell reference in, what's the sheet name and address of the cell?

I change it to the correct sheet name, and the filename I want used is in cell A1.
This time it gave me an error 400.

This is what I have in the VBA

Sub Button1_Click()
ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "" & Sheets("V3").Range("A1").Value
End Sub

 

[Kyle123]

It should be:

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("V3").Range("A1").Value

 

[Zef05]

It should be:

ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("V3").Range("A1").Value

This gave me an error:

Compile Error:
Invalid outside procedure.

 

[Kyle123]

it needs to go in a sub:

Sub Button1_Click()
    ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("V3").Range("A1").Value
End Sub

 

[Zef05]

it needs to go in a sub:

Sub Button1_Click()
    ThisWorkbook.SaveAs CreateObject("WScript.Shell").specialfolders("Desktop") & "\" & Sheets("V3").Range("A1").Value
End Sub

I'm giving up on this one. It gave me an error 400.


How about choosing where it will be saved instead of automating it to the desktop?
That will work for all users since they will assign the location, right?