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

  • Hi


    Try:
    ActiveWorkbook.SaveAs Filename:=Range("B1").Value


    (Range("B1").Select selects cell B1 and returns the result; TRUE if successful, FALSE otherwise)


    Actually you don't need to type Value as this is the default property of the range object.

    Regards
    Fredrik