Hi Trish,
The following code example should help. Take particular note of the comments.
To make a folder based on a value in a cell then simply make the variable
equal to the cell and ensure that you get the path info correct.
Sub PathsAndThings()
Dim strCurDir As String
Dim strApplicationPath As String
Dim strThisWorkBookPath As String
Dim strMyNewFolder As String
'Current directory is the path where a workbook will be
'saved by default if you click save.
'When Excel is first opened it is the default path
'as set in options but if you use Save As and select another
'path to save the workbook, then that path becomes the
'Current Directory. The same if you select another path
'to open a workbook.
strCurDir = CurDir
MsgBox "The current directory (or path) is " & strCurDir
'Application path is the path of the Excel application
strApplicationPath = Application.Path
MsgBox "The path for the current application is " & strApplicationPath
'This workbook path is the path of the current open workbook
strThisWorkBookPath = Application.ThisWorkbook.Path
MsgBox "The application current project path is " & strThisWorkBookPath
'To create a directory (or folder) use MkDir function
'if you use the function on its own as follows then
'it creates a sub-folder of the Current directory
MkDir "Test folder"
'To make a folder at another location then precede the folder
'with the required path.
MkDir "C:\Users\Username\Test folder"
'Variables can be used in lieu of the actual name
'Note that the back slash added to the
'string before the file name because the code
'Application.ThisWorkbook.Path does not return the
'backslash at the end
strMyNewFolder = strThisWorkBookPath & "\Test folder"
MkDir mynewfolder
End Sub
