This code will only allow you to choose .txt files, but I put a bit of code there anyway to show you what you could do if you allow multiple file ext.
![]()
Sub dave() Path = Application.GetOpenFilename("txt Files (*.txt), *.txt", , "Select Text File") If Path = "False" Then GoTo ExitSub: End If If Right(Path, 4) <> ".txt" Then MsgBox "Please select text file." GoTo ExitSub End If Workbooks.Open Filename:=Path ExitSub: End Sub
Bookmarks