Hello VB Bugs!

I was successful in creating a folder based on an excel
cell. The folder is named accordingly what the user types.
This is the following code I use to create first folder.
How can I create subfolders and label them permanently??
The 1st folder name will always be relative and subfolders name will be
absolute.
Thanks & enjoy the live bugs!! Myrna

Dim x As String
Dim cell As Range

On Error Resume Next
cLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each cell In Range("A" & cLastRow)
x = "S:\Order Folders\2004 Open Orders\" & cell.Value
MkDir x
Next cell

Note: This procedure is excuted in a UserForm OK Button


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!