Option Explicit

Sub test()
Dim save_file, Save_Filename As String
Dim 保存先 As String

MsgBox ActiveWorkbook.Name

'保存先を会社のサーバにあるフォルダにすると保存ダイアログで名前が表示されない
保存先 = "E:\data\"
Save_Filename = Range("A5") & "_" & ThisWorkbook.Name
save_file = Application.GetSaveAsFilename(保存先 & Save_Filename, _
FileFilter:="Excelファイル,*.xlsm")

ActiveWorkbook.SaveAs Filename:= _
save_file, FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False





End Sub