Experimente:

Sub AbreCaixaAbrirArquivo()
 With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "P:LABORATÓRIOrelatorio" & Sheets("Plan1").[A1] & ""
  .Show
 End With
End Sub

Osvaldomp;

ele abre a janela da pasta correto, porem, nao consigo abrir os arquivos que estao dentro da pasta.
quando dou duplo clic no arquivo na pasta, ele fecha a janela.

obs.: estes arquivos queria abrir manualmente...

a macro, queria apenas ir ate o caminho onde esta estes arquivos.

o codigo acima, funcionou, ou seja, fui ate a pasta, mas nao permite abrir os arquivos..

dentro da pasta estara arquivos em PDF, Doc, xls

Ao acessar a pasta via macro você abrirá somente arquivos em Excel?

Boa Tarde!!!

Tenta este é para dar certo:

Sub Botão5_Clique()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.FollowHyperlink "P:LABORATÓRIOrelatorio "
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Deu certo!!!!

era isso mesmo xandrinho!!!

Osvaldomp, nao so excel, é varios arquivos para abrir, mas abrir manualmente.

valeu....

obrigado...