<< Click to Display Table of Contents >> Navigation:  Macro Samples > Select an Excel file using GetOpenFileName

;Create objects
WshShell = CreateObject("WScript.Shell")
 
strFileName = GetOpenFileName("Select File", "", "Excel Files *.xls|*.xls")
WshShell.popup(strFileName)
WshShell = Nothing
End