Sub AbrirDir()
Application.Dialogs(xlDialogOpen).Show "C:Pasta1"
End Sub
Veja se e isso que procura, para adiciona o Butão basta cria-lo atribuir macro e escolher a macro AbrirDir.
nao esqueça de qualifica se atendeu suas necessidades
Att Vitor Hugo
Postado : 29/08/2017 10:29 am