Bom dia!!

Use a pesquisa do fórum!!!

Sub AleVBA_11810()
    Dim stFolder As String
     
    stFolder = "c:Temp" '<- seu caminho aqui
     
    If Len(Dir(stFolder, vbDirectory)) <> 0 Then
        Shell "Explorer.exe /n,/e," & stFolder, vbNormalFocus
    Else
        MsgBox "O diretório não existe!", vbCritical
    End If
     
End Sub

Att

Boa tarde

Utilizei o código que me enviou, porém ele não está como imaginei. O que preciso é que ele deixe a tela de "Abrir arquivo" no caminho que eu seto.
O código informado me seta o caminho informado e abre o explorer. Desta forma preciso ir até o explorer para selecionar o arquivo, e o que preciso é que na tela que ele carrega eu possa navegar entra as pastas e arquivos do caminho que eu setei na variável

Se alguém puder me ajudar agradeço
Abraços

Paulo