Wow - thanks for the quick reply!! So it works but not quite right. It saves
it but on the Desktop since that is where I put it and the associate might
want to place it elsewhere and the macro needs to run automatically when the
file is closed. Do you have further instructions for me?

"Dave Peterson" wrote:

Instead of using the builtin menus (File|Save, File|SaveAs), have the associate
run your Save_It macro.



Jani wrote:

In looking at all these helpful hints, I am doing something wrong with what
should be simple code. I have an Excel template and want the file to be saved
to a reference cell. When I click on Save, Close, Save as.. it defaults to
the name of the template. The associate can save the file wherever she/he
wants to. Need some assistance - thanks! Jani
Sub save_it()
Dim fname
With ActiveWorkbook
fname = .Worksheets("worksheet1").Range("b9").Value & ".xls"
.SaveAs fname
End With
End Sub

--

Dave Peterson