K
Kelly
Hi all,
I'm very new at VBA and am trying to figure out how to create a macro
that takes the data entered in Column A and then generates directories
using the data in each cell in Column A.
Example
A1: Cat
A2: Dog
A3: Snake
Generating directories wherever I designate titled "Cat," "Dog,"
"Snake," etc.
The initial code I have found allows me to generate a directory though
only from "A1"
Sub CreateDirectoy()
Dim strDir As String
strDir = "C:\" & Sheet1.Range("A1")
On Error Resume Next
If Dir(strDir) = "" Then MkDir strDir
End Sub
How do I have this piece of code apply to all of column A?
I know this is surely rudimentary to everyone, so please forgive me in
advance.
Best wishes and many, many thanks,
Kelly
I'm very new at VBA and am trying to figure out how to create a macro
that takes the data entered in Column A and then generates directories
using the data in each cell in Column A.
Example
A1: Cat
A2: Dog
A3: Snake
Generating directories wherever I designate titled "Cat," "Dog,"
"Snake," etc.
The initial code I have found allows me to generate a directory though
only from "A1"
Sub CreateDirectoy()
Dim strDir As String
strDir = "C:\" & Sheet1.Range("A1")
On Error Resume Next
If Dir(strDir) = "" Then MkDir strDir
End Sub
How do I have this piece of code apply to all of column A?
I know this is surely rudimentary to everyone, so please forgive me in
advance.
Best wishes and many, many thanks,
Kelly