Save worksheet

[VbaHell]

Hello one and all

I am using excel 2007

Is it possible please to do the following with VBA code
I have a workbook with 4 worksheets, I want to be able to Click on cell B1 and then save that worksheet only in a folder c:\mydocuments\B1 (Name in B1 cell)
Then delete the save worksheet from the workbook and then save the workbook as c:\mydocuments\VBA

 

[pedie]

Maybe you can try something like this....

[FONT=Courier New]Sub TEST()[/FONT]
[FONT=Courier New]Dim myworkbook As Workbook[/FONT]
[FONT=Courier New]Worksheets("Sheet1").Copy[/FONT]
[FONT=Courier New]Set myworkbook = ActiveWorkbook[/FONT]
[FONT=Courier New]myworkbook.SaveAs "Your Folder Path here \" & Range("B1").Value & ".xls"[/FONT]
[FONT=Courier New]myworkbook.Close[/FONT]
[FONT=Courier New]End Sub[/FONT]

 

[VbaHell]

Hi Pedie

Can I ask please, I want to only save the worksheet not the whole workbook

 

[pedie]

Did you try it out? if 2007 format...try this way.
this will only save sheet1 for example. you can replace sheet1 with your sheet name.....

[FONT=Courier New]Dim myworkbook As Workbook[/FONT]
[FONT=Courier New]Sheets("Sheet1").Copy'[/FONT]
[FONT=Courier New]Set myworkbook = ActiveWorkbook[/FONT]
[FONT=Courier New]myworkbook.SaveAs "C:\.......\" & Range("B1").Text & "xlsm", FileFormat _[/FONT]
[FONT=Courier New]       :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/FONT]
[FONT=Courier New]myworkbook.Close[/FONT]