Show All Files In File > Open Dialog by Macro

OnCancel(EndNow)
FileOpenDlg(AllFiles!)
EndNow: