Button to create folder based on cell values & path

Hi all, I've been trying to patch a macro together that creates new folders for me, and having a rough time. Any help would be appreciated.

This is how it would work:

In cell A1, I have a root directory path specified. (say: c:\documents\Project)
I'll type in a new folder name in cell A2 (for this example, I'll add: "folder_1").
Cell A3 has a control button. When I click the button, a new folder is added in the root directory (c:\documents\project\folder_1). Then the button moves over to the next column (B3), where I can add a new folder name in B2... and so forth.

Thanks in advance for any direction!

To create folder see code below. I'm not sure on the type of algorithm you need for folder names though.

Please Login or Register  to view this content.

Thanks Graym, I'm just learning and that was actually very helpful.
Playing around with it, I keep running into a run-time error 1004. It doesn't seem different than anything I've seen on other threads, and not sure why ActiveCell is giving me this problem:

Sub CreateFolder_4()
Dim myPath As String
With ActiveSheet
MyFolder = .Cells(ActiveCell.Offset(-1, 0).Value)
End With
myPath = Application.ActiveWorkbook.Path & "\" & MyFolder
MkDir myPath
End Sub

Please Login or Register  to view this content.

Please Login or Register  to view this content.

No problem! Keep it up, its a very useful tool. Try this

Please Login or Register  to view this content.

& thanks for the Mkdir in your code. I didn't know this was possible without using the Shell function

@ graym463

No need for Application, you only need 1 line of code.

Please Login or Register  to view this content.

That did it - thanks so much for your help!!!

@ ctalley5

You're welcome

@ graym463

Thanks for the rep