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
Dave F wrote:
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
--
Brevity is the soul of wit.
"bpreas" wrote:
I need to record a macro that will save a file (file name) as the value
in a specific cell. Can this be done?
--
bpreas
------------------------------------------------------------------------
bpreas's Profile: http://www.excelforum.com/member.php...o&userid=34705
View this thread: http://www.excelforum.com/showthread...hreadid=573170