Open a text file using a dialog box

[BRG]

I have used the following code to allow a user to browse and select an excel
file to open in the past:

FOpen = Application.Dialogs(xlDialogOpen).Show(ThisWorkbook.Path)

I am now trying to use the same method to open a text file, using the
following code:

FOpen = Application.Dialogs(xlDialogOpenText).Show(ThisWorkbook.Path)

This doesn't seem to work. What am I doing wrong?

 

[Mike H]

Try

FOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

Mike

 

[BRG]

Thanks Mike, that worked perfectly.
--
BRG

Try

FOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")

Mike