Create a folder and sub folder in Excel VBA
Another simple version working on PC: Sub CreateDir(strPath As String) Dim elm As Variant Dim strCheckPath As String strCheckPath = “” For Each elm In Split(strPath, “\”) strCheckPath = strCheckPath & elm & “\” If Len(Dir(strCheckPath, vbDirectory)) = 0 Then MkDir strCheckPath Next End Sub