save as CSV file on desktop but in a 'New folder'

[mike02]

Hey,

I currently have a macro which takes the worksheets from one work book and saves them to the desktop as CSV files. works well. what i want now is to have the (9 new workbooks) saved into a created folder. so i need my code to create a new folder. and i want the folers name to specify from a cell in the origional workbook. the last part i already can do, i have set y = to that cells value. it works for my save as. now this is what i currently have:

Please Login or Register  to view this content.

I have the worksheets set up to go through as a string, so it selects on at a time and goes through the process of being compied into a new work book and then that is the save as code. how can i create a newfolder on the desktop with VBA? thanks,

[mike7952]

See if you can work with this

Please Login or Register  to view this content.

[mike02]

That works to create a file, how would i manipulate the code i have above to save the file in the folder? thanks

[mike7952]

Something like this

Please Login or Register  to view this content.

[mike02]

thanks, ive pretty much got it, I defined X as Activesheet.Name I want to save each worksheet as the activesheet name. but its only saving as X when sub in X for nameofyourfile anyideas. ive tried playing with the syntax aswell!

[mike02]

This is what i have:

Please Login or Register  to view this content.

But that just saves as filenameactivesheetnam.

This:

Please Login or Register  to view this content.

The syntax tells exel it is a text there for all workbooks save as X.CSV, any ideas?

[mike02]

Solved it:

Please Login or Register  to view this content.