Macro to make new workbook saved as "Fixed name & cell value"

[Antonescu]

Hi there,

Can anyone please help me with this?
I need a macro to copy a sheet into a new workbook, save it in a certain location and name it as one fixed part & cell value & another fixed part.
Below is what I have so far, basically, I want the bolded A1 in the code to be the value in the A1 cell.

Thanks so much!

Sub Fisier()
'
' Fisier Macro
'

'
Sheets("extract").Select
Sheets("extract").Copy
ChDir "C:\Users\AntonG\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\AntonG\Desktop\Nume A1 Prenume.xlsx", FileFormat:=xlOpenXMLWorkbook _
, CreateBackup:=False
Application.WindowState = xlNormal
End Sub

 

[AlphaFrog]

"C:\Users\AntonG\Desktop\Nume" & Range("A1").Value & "Prenume.xlsx"

 

[Antonescu]

"C:\Users\AntonG\Desktop\Nume" & Range("A1").Value & "Prenume.xlsx"

Worked like a charm.
Thanks a lot, you saved me sooo much time, if not for your solution, I had like 600 files to name by hand.

Have a great weekend