Something as simple as?

Dim sFile As String
sFile = InputBox("Supply filename")
If sFile < "" Then
ActiveWorkbook.SaveAs "C:\myTestt\" & sFile
End If



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

wrote in message
ups.com...
I have tried several of the options posted here, but the files do not
end up where the path would indicate. In some cases I cannot find them
at all.

The goal is this; after running the macro, prompt the operator to give
the worksheet a file name, and then save it to a specific folder. The
operator needs to change the file name each time to avoid overwriting
previous runs.

I have also tried to save as an .xcl type (it is a .txt when done), but
this creates a window without the option to choose the type.

Suggestions?