检查文件夹是否存在，如果没有为数据范围创建一个文件名，文件名是从连续单元格派生的

Question

到目前为止，您的帮助非常受欢迎。我的Excel VBA之旅仍在继续。

我的下一个挑战是在特定目的地创建一个文件夹。我创建它的数据是B列，它每周获得几行。我想要创建的例程理想情况下将运行从C2开始的所有行，并为之前已经创建的所有新创建一个文件夹。

我一直在使用下面的代码，但它需要我选择我想手动创建文件夹的单元格，并且由于某种原因也不会创建我的连接单元格名称的文件夹？

Sub MakeMyFolder()
    Dim Rng As Range
    Dim maxRows, maxCols, r, c As Integer

    Set Rng = Selection
    maxRows = Rng.Rows.Count
    maxCols = Rng.Columns.Count

    For c = 1 To maxCols
        r = 1
        Do While r <= maxRows
            If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
                MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
                On Error Resume Next
            End If
            r = r + 1
        Loop
    Next c  
End Sub

我应该添加我的连接文件名，取下表格＆＃34; 123 - test＆＃34;

我的问题是如何在没有选择的情况下使日常工作？我的数据来自C列中的C2到最后一行数据。

我们非常感谢您的帮助。