vba excel save as with are you sure but......... There's a catch

[cizzett]

So I want to initiate the save as for the file when the user clicks the "Finalize report" button but there's a small difficulty

I have the name for the file and the location of the file in a sheet that takes todays date and formats it to match the location of the file in the network drive and the date format that I want it saved.

File Address should be:
[TABLE="width: 624"]
<tbody>[TR]
[TD="class: xl68, width: 624"]I:\Inventory\Quality Reports\2019\3-2019[/TD]
[/TR]
</tbody>[/TABLE]
which is in cell B25 on the file locations sheet in the workbook


File should be named 03-28-2019

as located in cell B24 on the file locations sheet in the workbook.

Im hoping it will do the save as on its own, maybe just open a MsgBox to say "Are you sure youre ready to save the file"

Any help would be greatly appreciated.

 

[cizzett]

This is what I have tried but it bugs out

Sub SaveFinal()

Dim wb As Workbook: Set wb = ThisWorkbook
  Dim fs As Worksheet: Set fs = wb.Sheets("File Locs")


ThisWorkbook.SaveAs Filename:=(fs.Range("B25").Value) & (fs.Range("B24").Value), FileFormat:=xlOpenXMLWorkbookMacroEnabled

End Sub

 

[cizzett]

Solved!!!!!!!!!!!!!!!!!!!!!!!!!!

So After doing a

=CONCATENATE(B22,"\",TEXT(B23,"M-YYYY"),"\",TEXT(B24,"MM-DD-YYYY"))

In the cell for the address I then have the below to save using this the combined address

Sub SaveFinal()
  
  Dim wb As Workbook: Set wb = ThisWorkbook
    Dim fs As Worksheet: Set fs = wb.Sheets("File Locs")
     Dim FP As String
      Dim FN As String
     FP = fs.Range("B25").Value
        
    MsgBox "You are trying to save the file to:" & FP
  
ThisWorkbook.SaveAs Filename:=FP, FileFormat:=xlOpenXMLWorkbookMacroEnabled


End Sub