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.
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