Hi,

False Then MsgBox "Save as " & save_name End If End Sub> 

have the code below how can I modify it that can use the value in cell A105 as the file name.

Code:

Sub Save_Workbook_NewName()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
' Change initial folder as needed or store it in a cell and reference that
fd.InitialFileName = "\mtlnas01EFT_backup2021"
'fd.AllowMultiSelect = True
FilePicked = fd.Show

 ActiveSheet.Shapes("Button 13").Delete
 ActiveSheet.Shapes("Button 15").Delete
  ActiveSheet.Shapes("Button 17").Delete
  ActiveSheet.Shapes("Button 19").Delete
 ActiveSheet.Shapes("CommandButton1").Delete
 Worksheets("USD_WIRES").Range("A1").ClearComments
 Worksheets("USD_WIRES").Range("J1").ClearComments
 Worksheets("USD_WIRES").Range("K1").ClearComments
 
 
 save_name = Application.GetSaveAsFilename(fileFilter:="Excel File (*.xlsx), *.xlsx")
    ActiveWorkbook.SaveAs Filename:=save_name, FileFormat:=51
  [COLOR=rgb(184, 49, 47)]ThisWorkbook.SaveAs Range("A1"), 51    [/B][/COLOR]
    If save_name <> False Then
        MsgBox "Save as " & save_name
    End If


 End Sub

Thank you,