SaveAs Dialog appearing as expected but then not saving. 2

[HairyHippy]

The following piece of code displays the SaveAs dialog box, exactly as desired when run but when the save button is hit, the dialog box disappears and the file has not been saved with the new file name. Any ides

Sub SaveAs()
    Dim Filt As String
    Dim FileName As Variant
    Filt = "Microsoft Excel Workbook (*.xls),*.xls,"
    
    FileName = Application.GetSaveAsFilename(Range("SaveClient") + " - " + Range("Deal"), filefilter:=Filt)
    
End Sub

 

[dhulbert]

Adey.

The code does as you say, it displays the dialog box and sets the variable FileName to be the filename you require, but you don't then do anything with it.

You need a bit of extra code to actualy do the save

 ActiveWorkbook.SaveAs Filename:= filename

You will probably need tpo change your variable name from filename as well.

 

[PHV]

Something like this ?

Filt = "Microsoft Excel Workbook (*.xls), *.xls"    
FileName = Application.GetSaveAsFilename(Range("SaveClient") + " - " + Range("Deal"), Filt)
If FileName <> False Then
    ActiveWorkbook.SaveAs FileName
End If

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[HairyHippy]

Thanks guys - is there anyway of getting the code to just save the file as the required name and type rather than displaying the SaveAs dialog box?

 

[PHV]

A starting point:
ActiveWorkbook.SaveAs Range("SaveClient") & " - " & Range("Deal") & ".xls"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[HairyHippy]

Perfect! Thanks again.

 

[GVF]

Try this

Application.Dialogs(xlDialogSaveAs).Show