Save As under specific File Name

[trjhart]

Hi All,

I'm trying to create a copy of a file and then save it by using certain text/values within a workbook. The first value is text and the second value is the date but it needs to be in the format "yymmdd". The file should be written as so "SXB220620"

Can anyone help?

Sub Save_excel_file()

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Sheets("Front Sheet").Range("K1").Value & Format(Cells(1, 12), "yymmdd")

End Sub

 

[trjhart]

NVM think I solved it with this

Sub Save_excel_file()
'save as with the filename prefilled by value of K1
        Application.Dialogs(xlDialogSaveAs).Show Sheet1.Range("K1") & Format(Cells(1, 12), "yymmdd")
End Sub

 

[rwallage]

I have a similar problem. I have a file that needs to be saved with the name prefilled in cell J2.
I tried the code above, but without the "& Format etc". It doesn't work for me.