On 15 Feb, 15:47, Dave Peterson wrote:
I like Jon's reply, but if you want, maybe...

* * Dim myFileName As Variant
* * myFileName = Application.GetOpenFilename(Filefilter:="All Files, *.*")





WhytheQ wrote:

Hello,

The follwoing works ok:

'================================================= ===============
MyXlPathway = Application.GetOpenFilename("Excel Files (*.xls),*.xls,"
& _
* * * * * * * * * * * * * "Excel Files (*.xlsx),*.xlsx," & _
* * * * * * * * * * * * * "Excel Files (*.xlsm),*.xlsm," & _
* * * * * * * * * * * * * "Add-in Files (*.xla),*.xla", , "Select
Excel file or add-in for XL Start-up")
'================================================= ===============

but I'd like it so that all the file types are displayed as soon as
the Open File window appears - with the above the user has to select
the file type using the bottom combobox to make those files visible.

Any help appreciated
Jason.

--

Dave Peterson- Hide quoted text -

- Show quoted text -



Thanks to everyone for the help - all worked fine. I used something
very similar to Jon's.
Jason.