Pivot Tables and SaveMe

Hi Deborah, thanks for your query. Saving out two worksheets into a separate file is no problem, but because of the nature of our code, there are some tweaks to be made.

First, you need to make strSalesPerson a publically declared variable so we can access it in the Saveme subroutine. Secondly, I have moved the call to SaveMe in the Main "dashboard" subroutine so it is here:

**********
If blnPivot = True Then

Call pivotstaffanalysis

End If

Call saveme

Exit Sub
*************

Essentially, I want to simplify things which means you have to tick the Pivot table check box for there to be an "Analysis" sheet to dump out. Once we've done that, the amended SaveMe routine looks like this:

**************
Dim mynewfilename As String

mynewfilename = "C:\" & strName & ".xls"

Sheets(Array(strSalesPerson, strName)).Select
Sheets(Array(strSalesPerson, strName)).Copy

ActiveWorkbook.SaveAs Filename:=mynewfilename

ActiveWorkbook.Close

**************

Ideally, the subroutine should be rewritten to cope with the user selecting a pivot table or otherwise, but you can see from the amended code how easy it is to dump out multiple selections of worksheets into standalone files.

Hope this helps,

Anthony