Creating Multiple Folders

[CobraLAD]

I have in A1 the root folder, for example C:\Temp\MyFolders
From A4 I have a list of the folder I want to create.

I trying to get code working but with no luck
Can someone please assist

Sub CreateFolders()
Dim FolderName As String
For i = 1 To Range("A4").End(xlDown).Row
FolderName = Range("A1").Value & Cells(i, 1)
MkDir FolderName
Next
End Sub