Cerberus,

Did you want the file path be locked or to give the user the functionality
of being able chose the locaction? is so then I have this code:

Sub saveme()

Application.EnableEvents = False

rtn = Application.Dialogs(xlDialogSaveAs).Show(arg1:=Thi sWorkbook.Sheets _
("Put your sheet name here").Range("Your cell ref").Value & ".xls")
If Not rtn Then Cancel = True
Cancel = True

Application.EnableEvents = True

End Sub

If you want to combine the values of more than 1 cell add this code after
..value and before & in the above code

& " " & Range("D7").Value

Hope this helps



"Cerberus" wrote:

Is there a way to save a file using a cell's information as the documents
name? I currently have it saving as a set name but now I'm wanting to roll
the project out but I need the documents name to be saved with a new name
everytime.

The code I have now is:

varDoc.ActiveDocument.SaveAs ("s:\Engineering\testWord.doc")

I would like to have the file saved in the same directory (s:\Engineering\)
but have the name reference Cell CONFIG!O220. Is that possible, or do any of
you have a better idea on how the save the file with unique document names.

Thanks for and help in advance.