Some one posted this code and thought I'd incorporate it with the code
I gave you.

Sub NameFile()

Dim strngpth As String
strngpth = Application.InputBox("Enter the Desired Save path", , ,
, , , , 2)
Set strng1 = Application.InputBox(prompt:="Enter the Desired First
Cell", Type:=8)
Set strng2 = Application.InputBox(prompt:="Enter the Desired Second
Cell", Type:=8)

strPath = "I:\Database Development Files\BorderManager Filters\"

ActiveWorkbook.SaveAs Filename:=strngpth & strng1.Value & " " &
strng2.Value, FileFormat:=xlExcel8, CreateBackup:=False
Application.DisplayAlerts = True
ActiveWorkbook.Save

End Sub




--