Pode adaptar as suas necessidades ...

Function Abre_Pasta()
Dim NomeArquivo As String
Dim diretorio As String
NomeArquivo = InputBox("Escreva o nome do arquico e click em OK .")
If NomeArquivo = "" Then
MsgBox "Cancelado pelo Usuário !"
Exit Function
End If
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "Por Favor selecione a Pasta", 0, "C:")
If (Not objFolder Is Nothing) Then
On Error Resume Next
If IsError(objFolder.Items.Item.Path) Then diretorio = CStr(objFolder): GoTo Here
On Error GoTo 0
If Len(objFolder.Items.Item.Path) > 3 Then
diretorio = objFolder.Items.Item.Path & Application.PathSeparator
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=diretorio + NomeArquivo & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
diretorio = objFolder.Items.Item.Path
End If
Else
MsgBox "Cancelado pelo Usuário !"
Exit Function
End If
Here:
Set objFolder = Nothing
Set objShell = Nothing

End Function

Amigo... muito obrigado...

Era certinho o que eu precisa..

Obg.