Not sure exactly what you mean but this will get the filename from a
cell then open the save as dialog to specify the filepath (Filename can
still be altered prior to saving)

Dim xlsfname, xlsfpath As String
Sheets("Macro Help").Select
xlsfname = Worksheets("Macro Help").Range("B14").Value
xlsfpath = Application.GetSaveAsFilename(xlsfname, _
FileFilter:="Excel Files (*.xls),*.xls", FilterIndex:=1, _
Title:="Select Save location")
If xlsfpath = "False" Or xlsfpath = "" Then
End
End If
ActiveWorkbook.SaveAs FileName:=xlsfpath

Alternatively you can get the current directory in a particular cell
using

=INFO("directory") in another cell (Say B13) with the filename in
another cell (Say B14) then use

Dim xlsfname As String
Sheets("Macro Help").Select
xlsfname = Worksheets("Macro Help").Range("B13").Value & _
Worksheets("Macro Help").Range("B14").Value
ActiveWorkbook.SaveAs FileName:=xlsfname

This of course could be shortened into one continuous line without the
need for the xlsfname variable.

---
Message posted from http://www.ExcelForum.com/