Hi,

[snip]
will not actually open the file I select.

[snip]
One other question - since it will be in an Excel app, how do I limit the
Open File dialog box so that it only shows .xls files?


To open (rather than save) the file, perhaps replace:

fName = Application.GetOpenFilename
ActiveWorkbook.Save Filename:=fName

with:

fName = Application.GetOpenFilename _
(fileFilter:="Excel Files (*.xls), *.xls")
Workbooks.Open Filename:=fName


---
Regards,
Norman