Excel Macro Save CSV Cell without Prompting

[wildatom]

I'm trying to save the file name of the imported CSV I modify with a
macro with the name of cell at $a1. No matter what I do it keeps
prompting me for a file name. Since I want to automate this macro I
don't want to be prompted at all. What am I missing?

Main Document = Master.xls
Imports = data.csv
Save as = whatever text is in A1 without prompting me in the same
directory
Close excel

Range("A1").Select
Application.DisplayAlerts = False
FName = Application.GetSaveAsFilename(Sheets("data").Range("A1").Value,
fileFilter:="CSV Files (*.csv), *.csv")
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub

 

[wildatom]

Figured it out..

Range("A1").Select
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs _
Filename:=(Sheets("data").Range("A1").Value), _
FileFormat:=xlCSV, CreateBackup:=False
Application.DisplayAlerts = False
ActiveWindow.Close