VBA to create new workbook with a pre-defined name

[csilabgirl]

Excel 2002

I have a workbook where I would like to run some VBA code that will open a new workbook and then name the new workbook based on some text in a particular cell in the first workbook. Is this possible. Right now, it just names it book 1, book 2, book 3, etc.

Thank you for the help

 

[VoG]

Try like this

Sub NewWb()
Dim Aname As String
Aname = ActiveWorkbook.Sheets(1).Range("A1").Value
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Aname & ".xls"
End Sub

 

[chuckles1066]

http://www.mrexcel.com/forum/showthread.php?t=531816

might point you in the right direction?

 

[csilabgirl]

VoG, that works perfectly. Thank you very much!