Prev: emailing spreadsheet with macros
Next: This book has lost its VBA project, ActiveX controls and other fea
From: Stephen on 22 Feb 2010 15:46
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:="test.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:="test.xlsm", _
> fileFilter:="Excel Files (*.xlsm), *.xlsm")
>
>
> --
>
> Regards Ron de Bruin
> http://www.rondebruin.nl/tips.htm
>
>
> "JanetJek" <JanetJek(a)discussions.microsoft.com> wrote in message news:21E184E5-9FCC-49AE-9B45-B69272BDB69E(a)microsoft.com...
> >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?
>
 | 
Pages: 1
Prev: emailing spreadsheet with macros
Next: This book has lost its VBA project, ActiveX controls and other fea