Sub MkDir() Dim fso As New Scripting.FileSystemObject fso.CreateFolder (ThisWorkbook.Path & "\" & "*GiveThecellReferenceHere"*)
End Sub On Fri, May 6, 2011 at 4:43 PM, rajan verma <rajanverma1...@gmail.com>wrote: > Sub MkDir() > Dim fso As New Scripting.FileSystemObject > > fso.CreateFolder (ThisWorkbook.Path & "\" & 33) > > End Sub > > > On Fri, May 6, 2011 at 1:31 PM, Pravin Kumar <pravin.si...@gmail.com>wrote: > >> Hi >> >> I want to create one folder in the same folder... >> >> MkDir (ThisWorkbook.Path & "\33") >> >> this will create a folder with the name 33. I want to link the name with a >> cell so that if the value is 34 the created folder name will be 34. if the >> cell value is 38 the folder name should be 38. >> >> Pls help. >> Thanks >> Pravin >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> > > > > -- > Regards > Rajan verma > +91 9158998701 > -- Regards Rajan verma +91 9158998701 -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel
