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" <dyl.1y8aun_1131538217.3218@excelforum-nospam.com> wrote in message
news:dyl.1y8aun_1131538217.3218@excelforum-nospam.com...
>
> 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
>