Automate the SaveAs for new workbook

Well I'm still stumped on this....I have created multiple new workbooks from a master workbook and now want to automate the "save as" process based on a the cell "B1" in the new workbook.
Below is my attempt at this but I keep getting the new file saved as "true.xls" any help would be appreciated.

New Workbook save
' Macro recorded 2/7/2003 by zurich6
'
' Keyboard Shortcut: Ctrl+n

ActiveWorkbook.SaveAs Filename:=Range("B1").Select
ActiveSheet.Paste
, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Fredrik, that did it...it works now...
thank you so much.:)