something which I have looked hard for is to be able to change path
and file name where I can input the text manually.
So I tried for myself and here is what I came up with. If you find it
useful let me know.


Dim myPath As String
Dim myFilename As String
'point at the (UNC) path here.
myPath = InputBox("enter path here")
If Right(myPath, 1) < "\" Then
myPath = myPath & "\"
End If
myFilename = InputBox("enter filename here") & " your text here if
common ending .xls"
ActiveWorkbook.SaveAs Filename:=myPath & myFilename

Cheers
Mark