Is there a way to prefill in the "File Name:" in the Save As window when
using the ActiveWorkbook.Close function?

I want to prefill the filed with the name of the file opened with

DataFileName = Application.GetOpenFilename(filefilter:="Text or ASC Files,
*.txt; *.asc", Title:="Select the Data File")

Want the workbook name to be the same name as that opened by DataFileName
(less the .txt or .asc extension) and not "Sheet1".

Thanks