基于Excel创建5级文件夹结构的VBA脚本报错求助

我尝试以Excel表格为数据源创建5级文件夹结构，表格按列划分层级。参考相关VBA脚本后，执行语句Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))时出现错误，目前未找到解决办法。

脚本代码如下：

Sub CreateFolderStructure()
    Dim objRow As Range, objCell As Range, strFolders As String

    For Each objRow In ActiveSheet.UsedRange.Rows
        strFolders = "C:\Users\morar\Downloads\FoldersNSubsr"
        
        For Each objCell In objRow.Cells
            strFolders = strFolders & "\" & objCell
        Next
        Shell ("cmd /c md " & Chr(34) & strFolders & Chr(34))
    Next
End Sub

内容的提问来源于stack exchange，提问作者BertMG