Thanks, I forgot to alter that while correcting the error in my first post

"Chip Pearson" wrote:


If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName

In which case you need to declare fileSaveName as Variant, not String.

Cordially,
Chip Pearson
Microsoft MVP
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Wed, 10 Dec 2008 08:01:01 -0800, Mike H
wrote:

OOPS,

I meant to say

If fileSaveName < False Then ActiveWorkbook.SaveAs fileSaveName

In case the user presses cancel.

Mike

"Mike H" wrote:

Hi,

Try this

Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=Range("B1").Value, _
FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
If fileSaveName < "" Then ActiveWorkbook.SaveAs fileSaveName

Mike

"h2fcell" wrote:

Hello,
Im trying to create a macro that opens the file save as window with a
prefilled fill name and file format and allows me to save the file when I
click on the save button in the save as window.
The save as window opens, but when I click save the window closes and the
file is not saved.
Below is the code. Any suggestions are greatly appreciated.

Private Sub CommandButton2_Click()

Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=Range("B1").Value, _
FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")

End Sub