Excel VB code to achieve typing foldernames

[pix_jnr]

hey guys!

just want to write a macro in excel which will achieve the following

- I have spreadsheet containing data
- In Column A is a list of names
- i want to run a macro that will create a new folder (on my hard drive) for each name in column A with the folder name being the name of that cell. Then save the same spreadsheet in this new folder.
-Repeat this for all the names in col A. (ie:my hard drive will contain X new folders that have the names of the data in col A)

Make sense? i dont think excel is allowed to do this or cant do this? ne help would be grealy appreciated! (save me so much time!!!)

Thanks to all!

 

[BrianB]

Like this :

Sub test()
    Dim MyFolder As String
    Dim Myrow As Long
    Dim RootFolder As String
    '--------------------------------------
    RootFolder = "C:\TEMP\"
    ChDrive RootFolder
    Myrow = 1
    While ActiveSheet.Cells(Myrow, 1).Value <> ""
        MyFolder = RootFolder & ActiveSheet.Cells(Myrow, 1).Value
        MkDir MyFolder
        Myrow = Myrow + 1
    Wend
    MsgBox ("Done")
End Sub

 

[pix_jnr]

Thanks for that! worked a treat! i hadnt heard of Mkdir - which is sort of the key to the problem. thanks for your help!

 

[Malterik]

lol 4 years later this code still rocks!