SAVE AS/ GET SAVE AS/

[DarrenL]

I am trying to attach a macro that will save the workbook automatically as
whatever the user inputs in a particular cell. I need to be able to save it
to a particular place as well. I do not want the "save as" box to pop up.
When they hit the macro button, it should save it as (for example) cell "A1"
in that workbook in "C:\Darren\stuff\"A1". Any help would be appreciated.
Spent alot of time on this one already.

 

[Gord Dibben]

Will the name always be unique? Or would you want to overwrite existing
file with the same name?

Sub save_as_cell()
Application.DisplayAlerts = False 'remove if want warning
ActiveWorkbook.SaveAs Filename:="C:\Darren\stuff\" & _
Sheets("Sheet1").Range("A1") & ".xls"
Application.DisplayAlerts = True 'remove if want warning
End Sub


Gord Dibben MS Excel MVP