Save single worksheet as new workbook

I have a workbook with multiple worksheets and on each worksheet I would like to have a macro that saves that particular worksheet to a certain folder, and saves it as the data in a particular cell.

For example:
One worksheet is named "Tax40". I would like to save it as "A10" in Z:\SecDept\Recommendations

Any help would be appreciated!

-GorillaBoze

Welcome to the forums!

Try to think of the solution from the reverse angle...
Save a duplicate workbook as the name you want for your single
sheet workbook. Then do a delete on the sheets not needed and
save and presto, single sheet workbook!

Example from VB, but I know you can get the logic to create the
Excel macro.

VB Code:

Option Explicit
'ADD reference to MS Excel xx.x Object Library
Private moXL As Excel.Application
 
Private Sub Command1_Click()
    Dim oXLSheets As Excel.Sheets
    moXL.Workbooks.Item(moXL.ActiveWorkbook.Name).SaveAs "C:\SingleSheet.xls"
    Set oXLSheets = moXL.Workbooks.Item("SingleSheet.xls").Sheets
    'Delete sheet3 and sheet2, leaving sheet1.
    oXLSheets.Item(3).Delete
    oXLSheets.Item(2).Delete
End Sub
 
Private Sub Form_Load()
    Set moXL = New Excel.Application
    moXL.Workbooks.Add
    moXL.Visible = True
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    moXL.Workbooks(1).Close False
    moXL.Quit
End Sub

HTH

Thank you for the help!

No prob.

:)