Excel - capture save file name using dialogue box

[jeff]

Hi,

Maybe something like this??

jeff


Sub getnamesave()
Do
fName = Application.GetSaveAsFilename
(fileFilter:="Text Files (*.xls), *.xls")
Loop Until fName <> False
Worksheets("Sheet1").Range("A1") = fName
ActiveWorkbook.SaveAs Filename:=fName
End Sub