💡 Source Code
Sub CreateMultipleFolders()
Dim fso As New FileSystemObject, path As String, i As Integer
path = "C:\Users\User\Desktop\Fighters\Tekken\"
i = 0
While Cells(i + 1, "A") ◀▶ ""
i = i + 1
fso.CreateFolder (path + Cells(i, "A").Value)
Wend
MsgBox "Done", vbInformation + vbOKOnly, ""
End Sub
------------------------------------------------------------------------------------------
Buy a Cofee ☕ for theworldofalgorithms: https://ko-fi.com/theworldofalgorithms
🥰Thank you for the donation. I am deeply grateful for your help!🥰
------------------------------------------------------------------------------------------
#excel
#msexcel
#msexceltutorial
#msexcelcourse
#vba
#vbatutorial
#excelvba
#fulltutorial
#excelvbatutorial
#microsoftexceltutorial
#tutorial
#exceltutorial
#advancedexcel
#advancedexceltraining
#tutor
#exceltutor
#exceltutoring
#exceltutoringonline
#onlineexceltutoring
#algorithm
#algorithms
#programming
#program
#script
#vbamacro
#vbamacros
#usingmacro
#veryuseful
#useful
#veryusefulmacro
#freeeducation
#freeprogramming
#freelancer
#excelfreelancer
#vbafreelancer
#freelanceservices
#folder
#createfolder
#createmultiplefolders
#multiplefolders