I have a macro saving the file auto. To my desktop.

For example cell A1 = 501

I run a macro with a counter and auto. Changes A1 to 502.

Now macro must change file saving to 502, or =cell A1 content.

I also sometimes have to change destination from desktop to a specific file.

Quote:

---

Originally Posted by rsdjimbie

I have a macro saving the file auto. To my desktop.

For example cell A1 = 501

I run a macro with a counter and auto. Changes A1 to 502.

Now macro must change file saving to 502, or =cell A1 content.

---

Building on what we've done earlier, something like this should give an idea of the syntax:

Code:

---

Sub Save()
Dim fName As String, DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
fName = Range("A1").Text

    ActiveWorkbook.SaveAs DTAddress & fName & ".xls"

End Sub

---

Quote:

---

I also sometimes have to change destination from desktop to a specific file.

---

Change how? Clarify your work process or desired methodology.

File save as: My documents->Renier-> Production management->May

Riddles and more riddles.

If you occasionally want to save the file to a different place and NOT use your macros normal methodology, then don't use your macro.

Click on File > Save and pick you path / filename.