VBA セルの値でフォルダ作成

Sub mkdir_go()
Dim i
For i = 1 To 20
MkDir ThisWorkbook.Path & "\" & Cells(i, 1).Value 'フォルダ作成

Next
End Sub