Sub Main()
Dim FilePath As String
FilePath = Application.GetOpenFilename(FileFilter:="Arquivos do Excel,*.xls*", _
Title:="Selecione uma Pasta de Trabalho", _
MultiSelect:=False)
If CStr(FilePath) = CStr(False) Then
MsgBox "Nenhum arquivo selecionado.", vbInformation
Exit Sub
End If
MsgBox "Arquivo selecionado: " & FilePath
End Sub
http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG