Добрый день, мне надо создавать папки с названием из ячеек эксель  
нашел код и маленько его подправил  
 
Sub FormFolder()  
Dim fso_ As New FileSystemObject  
Dim f_ As Folder  
Dim p_ As String  
 
p_ = ThisWorkbook.path & "\" & ActiveCell & "." & ActiveCell.Offset(0, 1) & "." & ActiveCell.Offset(0, 2)  
 
 
If Not fso_.FolderExists(p_) Then Set f_ = fso_.CreateFolder(p_) 'значение "If Not fso_.FolderExists(p_) Then" я не очень понимаю, эта запись вобще нужна?  
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 3), Address:=p_, TextToDisplay:=p_  
 
End Sub  
 
макрос у меня работает так  
в папке где лежит файл эксель создается папка с именем 3х последующих ячеек и в самом экселе пишет путь ссылки на папку  
 
 
как мне надо  
 
например я только что создал папку  
"Том 1.ПЗ.Пояснительная записка"  
и хочу чтоб следующая папка "Книга 1.Чертежи" лежала в папке "Том 1.ПЗ.Пояснительная записка"  
 
помогите дописать плиз  
книжку прилагаю  
спасибо ¶