Hi there!! Still pretty new to VBA code but learning a lot! I have a seemingly easy task that I am having difficulty figuring out. What I would like to make happen is to create folders based on cell values, but if there is a row without anything I would like the action to stop and then a message box pop to say the task is complete. The code I have below creates the folders but continues even when the specified cell is empty. Hope that makes sense.
Any and all help is greatly appreciated!!
Sub MakeFoldersVERSIONING()
Dim FldrName As String, dirName As String
On Error Resume Next
dirName = "GFXM1:STUDIO:xtest:" & Format$(Date, "mmddyy"):
MkDir dirName
For i = 8 To 25
FldrName = Cells(i, 1).Value & "_" & Cells(i, 2).Value
MkDir dirName & Application.PathSeparator & FldrName
Next i
If Cells(i, 3).Value = "" Then MsgBox ("Versioning Folder Creation Complete!")
Exit Sub
End Sub
Bookmarks