Hi Dyl,

Try something like:
'=========
Public Sub Tester()
Dim sStr As String

sStr = ActiveWorkbook.Sheets("Sheet1"). _
Range("A1").Value '<<===== CHANGE
ActiveWorkbook.SaveAs sStr
End Sub
'<<=========

---
Regards,
Norman



"dyl" wrote in message
...

I want to create a macro that has "save as" in it and automatically
fills in the new file name by looking at the contents of a specific
cell in the file.
Is this possible?


--
dyl
------------------------------------------------------------------------
dyl's Profile:
http://www.excelforum.com/member.php...o&userid=28671
View this thread: http://www.excelforum.com/showthread...hreadid=483455