Copy the code that's between '***************** Code Start **************
and '***************** Code Stop ************** to a new module, and save it
with a name that's different than any of the routines within. (I tend to
call it something like mdlFileDialog)
There's an example of how to call it at the top of the page:
Dim strFilter As String
Dim strInputFileName as string
strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.XLS)", "*.XLS")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
In that example, you'll be prompted to look for Excel files (because of what
strFilter was set to in the call to ahtAddFilterItem, and the selected file
will be returned as strInputFileName.