vba - Excel - Create multiple folders and hyperlinks -

i want/need select cells on excel worksheet , create folders (called same cell text) , hyperlink cell newly created folder.

i have managed find vba creates folders selected cells , saving in same location excel saved....great saves me loads of time!

....but add vba cell should link created folder, can help? save me hyperlinking each individual cell.

i wish knew how create these myself amazed looks matrix me!

below vba works create list of folders per name of cell (i got forum):

sub makefolders()      dim rng range     dim maxrows, maxcols, r, c integer      set rng = selection     maxrows = rng.rows.count     maxcols = rng.columns.count      c = 1 maxcols          r = 1         while r <= maxrows              if len(dir(activeworkbook.path & "\" & rng(r, c), vbdirectory)) = 0                  mkdir (activeworkbook.path & "\" & rng(r, c))                 on error resume next             end if              r = r + 1         loop      next c  end sub 

appreciate , please excuse lack of knowledge regard subject.

this should trick. i've replace makefolders procedure shorter version.

public sub makehyperlinks()      dim myrange range     dim rcell range      'list folders in range a1:a4 - e.g. s:\bartrup-cookd\test\my new folder 1     set myrange = thisworkbook.worksheets("sheet1").range("a1:a4")      each rcell in myrange         'create folder.         createfolder rcell.value          'create hyperlink.         rcell.hyperlinks.add anchor:=rcell, _                              address:=replace(rcell.value, " ", "%20")      next rcell  end sub  public sub createfolder(folder) on error resume next dim objfso object: set objfso = createobject("scripting.filesystemobject")     if folder <> ""         if not objfso.fileexists(objfso.getparentfoldername(folder))             call createfolder(objfso.getparentfoldername(folder))         end if         objfso.createfolder (folder)     end if end sub