
Jose Zavala
Member
Members

Forum Posts: 42
Member Since:
October 25, 2017
October 25, 2017

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 = "\\mtlnas01\EFT_backup\2021\"
'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)][B]ThisWorkbook.SaveAs Range("A1"), 51 [/B][/COLOR]
If save_name <> False Then
MsgBox "Save as " & save_name
End If
End Sub
Thank you,
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online:
Guest(s) 10
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
jaryszek: 183
Newest Members:
Rob Rooth
Tom Lewis
Jennifer Rodriguez-Avila
Khaled Ibrahim
Kiran Supekar
Lisa Myers
Ronald White
Ginette Guevremont
Taryn Ambrosi
Mark Davenport
Forum Stats:
Groups: 3
Forums: 24
Topics: 6531
Posts: 28604
Member Stats:
Guest Posters: 49
Members: 32822
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen
© Simple:Press —
