Thanks for the attention.
I tried it and it ran aground. It put the BOBSON stuff into the cell
D20 that is where I wanted the new file name (WONDER-20070802)
Notice this line is still in the code (after I put in your code):
ActiveCell.FormulaR1C1 = "BOBSON-20060731"
This is what the whole code looks like now:
----------
Sub SaveFile()
Dim filename As String
filename = Range("D20") 'where A1 is the cell where the file name is '
' SaveFile Macro
' Macro recorded 7/31/2006 by User
'
'
Range("C11").Select
Selection.Copy
Range("D20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "BOBSON-20060731"
ActiveWorkbook.SaveAs filename:= _
"D:\My Documents\Excel Files\Guests\" & filename, FileFormat:=
_
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("B10").Select
End Sub
--
tdbab
------------------------------------------------------------------------
tdbab's Profile:
http://www.excelforum.com/member.php...o&userid=36937
View this thread:
http://www.excelforum.com/showthread...hreadid=566502