Hi,

Just starting to learn VBA and i have a small problem.
I need to open a specific folder or create it if it doesn't exist based on a cell value.

Sub Go_To_Client()

Dim dir As String
Dim fso As Object
Dim FolderPath As String
FolderPath = ("c:\test\")
dir = Range("H10").Value
Set fso = CreateObject("scripting.filesystemobject")
If Not fso.folderexists(dir) Then
    fso.createfolder (dir)
End If
    Call Shell("explorer.exe" & " " & dir, vbNormalFocus)
End Sub
It works a little bit
It searched for the folder in documents and creates a new one but i cant figure out how to search in a set location

Hope someone can help me

Thanks in advance