Hello there,
Does any one know if it is possible to pickup a text value from a
precise cell and assign it as a file name?
I have prepared a Template and on save as I would like to pickup the
text inserted into call C3 and save this new file into a directory
C:\mydir.
Thank you
Alan

Sub UserFileSave()

Dim Fname, Suggestion, Hdr

Suggestion = Range("c3").Value

Hdr = "Please choose a Location and Name then click Save."

On Error GoTo ERRH

Fname = Application.GetSaveAsFilename(Suggestion,
fileFilter:="ExcelFile(*.xls), *.xls)", Title:=Hdr)

If Fname = False Then

'Handle Cancel

'UserCancel

Else

ThisWorkbook.SaveAs Filename:=Fname

End If

Exit Sub

ERRH:

On Error GoTo 0

MsgBox "Try another Name"

UserFileSave

End Sub

Or if you want to automate it without giving the user the option:


ThisWorkbook.SaveAs Filename:=Range("C3").Value
or perhaps something like:
ThisWorkbook.SaveAs Filename:=Range("C3").Value & Format(Date, " mm-dd-yy")

"alanford" wrote:

Hello there,
Does any one know if it is possible to pickup a text value from a
precise cell and assign it as a file name?
I have prepared a Template and on save as I would like to pickup the
text inserted into call C3 and save this new file into a directory
C:\mydir.
Thank you
Alan