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

Muito obrigado funcionou certinho vlw mesmo

andrewrr

Observei que você já postou vários tópicos e a tua pontuação de agradecimento para os colaboradores se encontra zerado.

Veja como funciona:

viewtopic.php?f=7&t=16757

Observei que você não conhece as regras do fórum, pois anexou arquivos sem compactar (Zipar), por isso, te aconselho a acessar os links abaixo, evitando assim de eu ter que ficar pegando no teu pé futuramente:

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador