Code to select file types

[erock24]

The following code allows me to view and get excel files from this location. How can I edit it to show all files in the open window and not just excel files.

 Dim myDir As String
    myDir = "\\datawhse\root\LAW81\LAWSON\print\EHARSKEY"
    CreateObject("WScript.Shell").CurrentDirectory = myDir
    
    myDir = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , "Select the file and choose open.")
    If myDir = "False" Then
        Exit Sub
    End If
    Workbooks.Open Filename:=myDir

Thank you for your time and help.

 

[erock24]

I think I got it

I changed this:

(*.xls), *.xls",

to:

(*.*), *.*",

seems to work.