Save AS Macro

[mike02]

Hey, Im currently running a macro which seperates the worksheets in my work book into seperate workbooks on my pc and then saves them individually on the desktop. It all works great until i sent it to another pc. The problem is that i have it saving through one specific pc. Ive tried playing with the code etc but to no avail. Here is where i believe the problem to be.

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\WORKPC\Desktop\Address Information.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Is there away to manipulate the code to save on someones desktop automatically?

Thanks

[Ace_XL]

The problem seems to be the "users\WORKPC\" domain. Check for filepath to the desktop and modify accordingly.

[GeneralDisarray]

well, you could have them run this on the desktop (actually save it to there and run it from the desktop).

THen in the code, you can capture the string needed using the following line

Activeworkbook.saveas filename:= ThisWorkbook.Path & Application.PathSeparator & "Address_Information.xlsx" FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

[GeneralDisarray]

Or more generally, you might have them save the book to any place they like, and then stick the new sheets in a folder named "sheets" which is sitting in the same directory:

1) they save the file
2) make a folder in the same place named Sheets

Use this line:

Please Login or Register  to view this content.

Main idea: you can get the path telling you where a file is sitting using .path

[mike02]

thanks guys much appreciated, Thanks for helping!

Have a nice day,

Mike