VBA Saving excel with some constrains

[hazayah]

Dear All,

I have seen the great value of this website I'm not really experience with VBAbut relaying too much on MREXCEL

i'm adding a code to for a button on the excel so when you click on it

It should openthe saving as box with a specific name reading form a cell

I found the acode but my issue is the name not showing while selecting a place to save onlyafter I save it

Please help meto re type the code properly

Thank you inadvance

Sub save_workbook()
Dim FilePath As String

ActiveWorkbook.SaveAs filename:=Range("a1"), fileformat:=52
FilePath = Application.GetSaveAsFilename
End Sub

 

[theBardd]

Try this

Dim FilePath As String
    With Application.FileDialog(msoFileDialogSaveAs)
    
        .InitialFileName = Range("A1").Value
        If .Show Then
        
            ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=52
        End If
    End With

 

[hazayah]

Try this

Dim FilePath As String
    With Application.FileDialog(msoFileDialogSaveAs)
    
        .InitialFileName = Range("A1").Value
        If .Show Then
        
            ActiveWorkbook.SaveAs Filename:=.SelectedItems(1), FileFormat:=52
        End If
    End With

thank you , it works