Macro to Create Subfolders in Active Folder

[Steiner]

I'd try to get the currently selected folder first, and then check whether it's the right one.
To get the selected folder use:
[VBA]Set Activefolder = ActiveExplorer.CurrentFolder[/VBA]

To create subfolders, you first need a folder object (like the one you get using the statement above) and then say:
[VBA]ActiveFolder.Folders.Add("NewFolder")[/VBA]

Daniel