Change the name of an auto save

D

DaveDuf

I am trying to write a macro that will save the file to a specific cell
reference. The reference is a specific name that is automatically generated
by another macro function.
Any suggestions on how I could do this?

Cheers
 
R

ryguy7272

IS thsi what you want?

Sub SaveMe()
sFilename = Format(Worksheets("Sheet1").Range("A1").Value)
ans = MsgBox("Save file as " & sFilename)
If ans = vbOK Then
ActiveWorkbook.SaveAs Filename:=sFilename
End If
End Sub

HTH,
Ryan--
 
Top