I have a macro that brings up an Input Box which takes a filename (fnames$) and saves an excel sheet as that filename, I need this to create a folder first then save itself in the folder. The folder name would be the same as strProjectNumber...

bk.SaveAs FileName:="C:\LOA\" & strProjectNumber & "\" & fnames$

OK, well obviously the above doesn't work but I am trying to get it to save as

C:\LOA\ => Then a new folder based on the strProjectName => Then the filename fnames$ (previously entered from an Input Box (No help needed with this))

Anyone help?