Hey Leith,

Thanks for the help.
This works for opening the correct folder but doenst work with the cell value for creating or opening the folder

Sub Go_To_Client()

    Dim dir As String
    Dim Folder  As Object
    Dim Path    As Variant
            dir = Range("H10").Value

    
        Path = "C:\Test"
        With CreateObject("Shell.Application")
            Set Folder = .Namespace(Path)
            If Not Folder Is Nothing Then
                .Open Path
            Else
                MkDir Path
            End If
        End With
        
End Sub
I tried this and it opens the test folder but doesnt use the cell value to search the map and create the folder using the cell value

Thanks