I am having a problem using getopenfilename function. It runs OK the first
time, but when I go to re-run this routine it does not return an "array" and
the routing does not run a second time.

Can't figgure out the behavior. Has anyone seen this?

++++++++++++++++++++++++++++++++++++++++++++++++
fileToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls", , , ,
True)

If IsArray(fileToOpen) Then ' if no files selected, then do nothing,
otherwise, run the routines below

***** AND THEN I MANIPULATE THE DATA HERE *****

fileToOpen.Close
End If