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?