Open folder with "Application.dialogs(xldialogopen).show" not showing all files ?

[ChrisBester]

Hi All,

I'm using a macro to open a specific folder using "ActiveWorkbookPath" and it opens the dialog box showing "All Excel Files".
I need it to show "All Files" and not just exel file types, and preferably not showing the navigation pane on the left.

Can anyone help me with the right arguments to achieve this Pleassse? :-)

My sample code look like this:

Sub Open_Folder_B()
        ChDir ActiveWorkbook.Path()
        Application.Dialogs(xlDialogOpen).Show
    End Sub

This is the default view I get:

FoldertestPic1.png

And this is the view I would like to get..

FoldertestPic2.PNG

Thanks in advance :-)
All help appreciated