Save As "cell Value"

  • Thread starter Thread starter bpreas
  • Start date Start date
B

bpreas

I need to record a macro that will save a file (file name) as the valu
in a specific cell. Can this be done
 
I get this code when I record a macro which does what you're describing:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/18/2006 by David Nevin Friedman
'

'
Application.Run Range("AUTOSAVE.XLA!mcs02.OnTime")
Range("E10").Select
ActiveCell.FormulaR1C1 = "save this file as the value in this cell"
ChDir "C:\Documents and Settings\df78700\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\df78700\Desktop\save this file as the
value in this cell.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
 
Dave's solution is a hard coded value. Use this modification:

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\df78700\Desktop\" _
& Sheets("YourSheet").Range("A1")
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Charles
 
Back
Top