Saving a file to new folder dependant on the first letter of the file name.

Hi

I'm trying to write a macro which will enable me to save a file to a specific folder depending on the first letter of the filename. The code also creates a folder if none already exists. The code below is what I have managed so far but I keep getting a Run-time error '438' I think when I try and define the fchoose variable. Any help would be greatly appreciated.

Please Login or Register  to view this content.

Dim fchoose As string
fchoose = Left(Front_Sheet.Range("C2").Value, 1)

Thanks, have sorted it now. Went with this and works a treat:

Please Login or Register  to view this content.