How can i make this code save new folder to "\\fileserver\Users\Public\Documents\Main Customer\New Folder Name"
and create 3 subfolders "Images","Work Orders","Lead Info"
Public Sub SaveOnDesktop()Dim strPath As String, strFile As String
'Build Path
strPath = Environ$("HOMEPATH") &...