Excel Save to New Workbook

[Robertson1995]

I have a workbook with numerous worksheets. One of the worksheets is named Cisco. I have to populate certain data on this worksheet and the save it to a separate workbook.

I need code that will copy just this worksheet and then save it in a new workbook. I also need the file name for the new workbook to be the text that is in Cell A3 of the existing workbook and have the file menu pop up to give me the option of where to save it to.

Is this possible? Thanks in advance for your help.

 

[dave3009]

Try this

Sub SaveCiscoSheet()
    Sheets("Cisco").Copy
    ActiveWorkbook.SaveAs Application.GetSaveAsFilename & ".xls"
End Sub

 

[Robertson1995]

This works great. thanks. Is there a way to make the file name automatically populate with a certain text instead of "Book1"? I would like it to populate with the text that is in cell A2. Thanks. Im using Excel 2010

 

[dave3009]

Like so

Sub SaveCiscoSheet()
    Sheets("Cisco").Copy
    ActiveWorkbook.SaveAs Application.GetSaveAsFilename(InitialFileName:=Range("A2")).Value & ".xls"
End Sub

 

[Robertson1995]

Worked great. Thanks.

 

[davion]

Based on above, which I have working perfectly

I then want to have a macro inserted into the original workbook, that will be copied over the the newly created workbook, and allow you to the new file as a pdf with the same name, NOT that of the original file.