Save as question.
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.
|