VBA to save a workbook to a folder but create that folder if it doesn't already exist

Hi all, i have a room booking spreadsheet used by many users which is saved to their 'home' drives prior to being emailed to central hub. For good housekeeping reasons how can i get the code to create a folder on their home drives (eg Room Booking Forms) to save the .xls in if that folder doesn't exist. And to save in there if it does already exist?

Thanks VBA FTW.

I've squeezed your lines, with some tweaks, into my command button but have come acrossa problem. When i click the button it creates the folder on the home drive with no concerns, but it does not save the .xls. Click again and it saves the .xls but in the root of the home drive not in the new folder!!
where have i gone wrong?

Please Login or Register  to view this content.

many thanks

The code code will try to make a directory, if it fails because directory exists then it wil safe the file....?

It's may be simpler to check if directory exists and safe the file always.

Please Login or Register  to view this content.

Thanks Gerard.

Your code creates the folder and saves the file simultaneously but the file isn’t in the folder, it’s in the root of the home drive. Subsequent files saves error because the folder already exists (errors on the MkDir strFolderPath line).

Gerard, many, many thanks

one minor change, i removed the "\" from the & "Booking forms" and it worked a treat!!

thank you, again

Sorry to hijack the thread but I have been looking every where for a solution and you guys seem to have the answers. VBA FTW, I am trying to use your code below. It works as written to create the folder on the desktop but, I need it to save the workbook with a file name listed in cell ("A51"). Any way you can help?

HTML Code: 

What I want is for my remote employees to click a command button which will check for the folder on the deskop. If it is not there create it and save the file.

Thanks in advance,