Silly me, I forgot to put the code I already have.
Here goes:
ub copytofile()
'
' copytofile Macro
' Macro recorded 5/26/2006 by Michael Berrier
'

'
Sheets("MANIFEST").Select
Sheets("MANIFEST").Copy
Worksheets("MANIFEST").Copy 'to a new workbook
'new workbook is now active
With ActiveWorkbook
.SaveAs Filename:=.Worksheets("MANIFEST").Range("C13").Val ue
.Close savechanges:=False 'if you're done with it.
End With
End Sub