Thanks for the heads up Ron,

However; I have that code implemented, but I am receiving an error message
(file format or extension) when I try to re-open the file.

Any thoughts? Thanks ~ Stephen

here is the code on 1 line ...

fName = Application.GetSaveAsFilename(InitialFileName:="te st.xlsm",
FileFilter:="Excel Files (*.xlsm), *.xlsm")

"Ron de Bruin" wrote:

Hi Janet

This is working for me in Vista/O2007

Dim fname As Variant
fname = Application.GetSaveAsFilename(InitialFileName:="te st.xlsm", _
fileFilter:="Excel Files (*.xlsm), *.xlsm")


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"JanetJek" wrote in message ...
I have an Excel macro that prompts the user for the file name with
GetSaveAsFilename. It works fine under Window XP (Excel 2000, 2003, 2007)
but with Excel 2007 and Vista, the file name in the prompt box is empty,
blank. There is no file name.

Any suggestions?