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.
Thank you for your time and help.
Code:
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