Is it possible to make a macro open up tabs displaying the results of a pivot table? I have a pivot that breaks down the volume of orders in process, showing a sub-total for each associate and then a grand total. Currently, once the automated part of my report completes, I build a tab for each associate by double clicking each of their subtotals and then renaming the sheet that gets created with their name. The code below is what excel recorded when I performed this function manually, I can't use it though because the pivot table changes size each day depending on order volumes. The first tab I need to create is "blank" which means all orders that don't have a name assigned to them. Instead of looking in the sheet and seeing that the total count of orders belong to "blank" is in cell F10 and then using the showdetail command to open it out, is there a way I can just say Show Detail of Pivottable1,blank,grand total? And can I have it name the detail tab "blank" instead of defaulting to "sheet1" and having to change it? If the user has already created other sheets before executing the macro, sheet1 won't be the tab that needs to be called "blank"...

Sub sort_new_tabs()
'
' sort_new_tabs Macro
' Macro recorded 9/5/2007 by bmr1640
'

'
    Sheets("Director Snapshot").Select
    Range("F10").Select
    Selection.End(xlToRight).Select
    Range("T10").Select
    Application.CutCopyMode = False
    Selection.ShowDetail = True
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "blank"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Director Snapshot").Select
    Range("T15").Select
    Selection.ShowDetail = True
    Sheets("Sheet2").Select
    Sheets("Sheet2").Name = "williams"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Director Snapshot").Select
    Range("T19").Select
    Selection.ShowDetail = True
    Sheets("Sheet3").Select
    Sheets("Sheet3").Name = "gardner"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Director Snapshot").Select
    Range("T24").Select
    Selection.ShowDetail = True
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "constantine"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Director Snapshot").Select
    Range("A1").Select
    Sheets("Rep Snapshot").Select
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 113
    ActiveWindow.SmallScroll Down:=15
    Range("C150").Select
    Selection.ShowDetail = True
    Sheets("Sheet5").Select
    Sheets("Sheet5").Name = "migration"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("Rep Snapshot").Select
    Range("C152").Select
    Selection.ShowDetail = True
    Sheets("Sheet6").Select
    Sheets("Sheet6").Name = "a queue"
    Selection.Sort Key1:=Range("I2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Sheets("a queue").Select
    Sheets("a queue").Move After:=Sheets(13)
    Sheets("Director Snapshot").Select
    Sheets("Director Snapshot").Move Before:=Sheets(8)
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("CONTROL PANEL").Select
End Sub