Give this a whirl

Sub SaveFile()

Dim filename As String


Range("C11").Select
Selection.Copy
Range("D20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
filename = Range("D20")
ChDir "D:\My Documents\Excel Files\Guests"
ActiveWorkbook.SaveAs filename:= _
"D:\My Documents\Excel Files\Guests\" & filename, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("B10").Select
End Sub


--
Steel Monkey
------------------------------------------------------------------------
Steel Monkey's Profile: http://www.excelforum.com/member.php...o&userid=29051
View this thread: http://www.excelforum.com/showthread...hreadid=566502