Sorting Pivot Table by Last Column in Row Field (Row Label)

In a Pivot Table, if there are 5 or more than 5 columns as Row fields (Row label) and if we want to sort entire pivot table by values available in column 5 then it is not possible to sort Column 5 values only using Sort options (Except manually dragging rows in a pivot table) as data is grouped based on previous columns and it will be sorted within groups of previous columns. Sorting in Pivot is based on primary(First) column and then subsequent columns.

For more Info - http://answers.microsoft.com/en-us/office/forum/office_2007-excel/sorting-in-a-pivot-table/b83ef899-6c49-4a98-afb2-65ac2fc43f97

there is a workaround as below; 

In your source data, Add a new column with same values with column that you want to sort at position 5; refresh current pivot or create a new pivot; create pivot layout as per your requirement; Place newly created column as first column ; do sorting on first column and hide first column of pivot table ; if you have "Report Filters" then report filter headings will also become invisible due to hiding column hence write "report filter " headings in the cells next to the "Report filter" selection drop downs" or Else instead of hiding column just format the first row field in  such a way that one can not see any values there (like applying sheet colour to fonts)

Unhide Sheets using Single Click

In MS Excel, hide multiple sheets using a single click is available i.e. Select multiple sheets by pressing control button, and then right click and select Hide Sheets. But this is not available for unhidden sheets.

Below is VBA add-in to unhide sheets using single click

1. Open a New Excel File

2. Make Sure Macros are enabled (Click Here to Know How to Enable Macros)

3. Open Visual Basic Editor (VBE) using Alt + F11

4. Insert Module

5. Add below code and Close VBE

 ===============================================================

 ' Add-In Unhide Sheets using a Single Click

Option Explicit

Sub UnHideSheets()

Dim i, cnt as integer

    cnt = ActiveWorkbook.Worksheets.Count
    i = 1
  Do
     Sheets(i).Visible = True
     i = i + 1
  Loop Until i > cnt

End Sub

===============================================================

 6. Click on "Save As" file

 7. Select "Excel Add-In" in the "Save-As Type" Dropdown and Save file as "Showsheets"

7. Save File as "Add-In" File

8. Close Excel File

Now, It should be available for display sheets using single click

Manage Add-In

1. Open MS Excel

2. Click on File -> Options  For Excel 2010  (For Excel 2007 - Click On "Office" Button and then click on "Excel Options")

3. Select Add-Ins and then from "Manage" Drop Down (At Bottom) - Select "Excel Add-In" And then Click on "Go"

4. Select "ShowSheets" and Click on OK

Map Add-In to Button

1. Click on File -> Options (For Excel 2007 - Click On "Office" Button and then click on "Excel Options")

2. Select "Quick Access Toolbar"  For Excel 2010 (For Excel 2007 - Click On "Customize")

3. Select “Macros” from “Choose Commands from”

4. Select "UnHideSheets" and Add

5. Then Under “Customize Quick Access Toolbar”

     a. Select "For all Documents (Default)"

     b. From Below List Select "UnHideSheets" and Click on Modify

6. Select any sign & give any display name that you like to view then Click Ok

7.  Click “Ok” , Save & Close file

8. New icon will be created at top

9. When you want to unhide sheets of any workbook click on the newly created button; it will show all hidden sheets from that workbook.

Scheduling To run Macro using VBScript

To Execute Excel Macros through VBScript
Here is the link