For i = 1 To Cells(Rows.Countr,"A").End(xlUp).Row
On Error Resume Next
MkDir "C:\" & Cells(i,"A").Value
On Error Goto 0
MkDir "C:\" & Cells(i,"A").Value & "\" & Cells(i,"B"),Value
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"TomK" <u28588@uwe wrote in message news:68b02809d8354@uwe...
Hi,

New around here and not much of a VBA programmer, but hope you can help me
out.

I want to create a macro in Excel that will use the MkDir function to
create
directories based on values contained in two columns. The values in
Column A
define the 1st level directory and those in Column B define the 2nd level
directory.

For example:

The following data in columns A and B of the spreadsheet:

A B
one aaaa
one bbbb
one cccc
two dddd
two eeee
two ffff

Would create the following directories:

.\one\aaaa
.\one\bbbb
.\one\ccc

.\two\dddd
.\two\eeee
.\two\ffff

Any help would be greatly appreciated!

--
Thanks,
Tom