リストを使ってフォルダの一括作成（選択したセルより下に入力されている文字のフォルダを１つずつ作っていく）

■■■■■■■
リストを使って、フォルダをデスクトップのフォルダに一括作成する。
以下は、「yamada」というユーザー名のデスクトップにある「000」というフォルダ内に一括作成するマクロ。

—– べんりあつめ。—–

Sub folsaku()
Dim a
Do Until ActiveCell = “”
i = ActiveCell
MkDir “C:\Users\yamada\Desktop\000\” & i
ActiveCell.Offset(1, 0).Activate
Loop
End Sub