Project Name : 'VBAProject'
Quirk - duff tag length======================
Module3
>>>>>>
Attribute VB_Name = "Module3"
Sub Report1()
'
' Report1 Macro
' Macro recorded 4/11/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable1000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("PivotTable1000").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable1000").PivotFields("Funnel Status")
        .PivotItems("01 Identification & Alignment").Visible = False
        .PivotItems("02 Needs Analysis").Visible = False
        .PivotItems("03 Solution Development").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable1000").AddFields RowFields:=Array( _
        "Product Groups", "Region", "Account - SSO"), ColumnFields:="Revenue Type", _
        PageFields:=Array("Product", "Forecast Commit Flag", "Confidence Level", _
        "Quarter", "Product Summary", "Funnel Status")
    With ActiveSheet.PivotTables("PivotTable1000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable1000").PivotFields("Account - SSO").AutoShow _
        xlAutomatic, xlTop, 5, "Sum of Revenue Amt"
    ActiveWorkbook.ShowPivotTableFieldList = True
    Range("C22").Select
    ActiveSheet.PivotTables("PivotTable1000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable1000").Format xlTable2
    ActiveWindow.Zoom = 75
    Columns("A:G").Select
    Range("G1").Activate
    ActiveSheet.PageSetup.PrintArea = "$A:$G"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$9"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$G"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("10:10").Select
    ActiveWindow.FreezePanes = True
    Range("D4").Select
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[1]C[-2]"
    Range("C2").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("C4").Select
End Sub
Sub Report2()
'
' Report2 Macro
' Macro recorded 4/20/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable1", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Array( _
        "Product Groups", "Funnel Status"), ColumnFields:="Region", PageFields:= _
        Array("Revenue Type", "Forecast Commit Flag", "Quarter")
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Region")
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Funnel Status")
        .PivotItems("01 Identification & Alignment").Visible = False
        .PivotItems("02 Needs Analysis").Visible = False
        .PivotItems("03 Solution Development").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    Range("B6").Select
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Funnel Status"). _
        ShowAllItems = True
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Forecast Commit Flag"). _
        CurrentPage = "Y"
    Range("C14").Select
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable1").Format xlTable2
    ActiveWindow.Zoom = 75
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("A:J").Select
    Range("J1").Activate
    ActiveSheet.PageSetup.PrintArea = "$A:$J"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$6"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$J"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("7:7").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayGridlines = False
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!RC[-5]"
    Range("F1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("F3").Select
End Sub
Sub Report4()
'
' Report4 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable4000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable4000").AddFields RowFields:=Array("Region", _
        "District", "Account - SSO", "Funnel Status", "Quarter"), ColumnFields:="Revenue Type"
    With ActiveSheet.PivotTables("PivotTable4000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable4000").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable4000").PivotFields("Account - SSO")
        .AutoSort xlDescending, "Sum of Revenue Amt"
        .AutoShow xlAutomatic, xlTop, 10, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable4000").PivotFields("Funnel Status")
        .PivotItems("01 Identification & Alignment").Visible = False
        .PivotItems("02 Needs Analysis").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable4000").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("D6").Select
    Selection.Delete
    Range("C6").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable4000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable4000").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$I"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$I"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[6]C[-1]"
    Range("B1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("B2").Select
    End Sub
    
Sub Report5()
'
' Report5 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable5000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable5000").AddFields RowFields:=Array("Product Groups", _
        "Account - SSO", "Funnel Status", "Quarter"), ColumnFields:="Revenue Type", _
        PageFields:=Array("Region", "District")
    With ActiveSheet.PivotTables("PivotTable5000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable5000").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable5000").PivotFields("Account - SSO")
        .AutoSort xlDescending, "Sum of Revenue Amt"
        .AutoShow xlAutomatic, xlTop, 10, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable5000").PivotFields("Funnel Status")
        .PivotItems("01 Identification & Alignment").Visible = False
        .PivotItems("02 Needs Analysis").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable5000").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("C7").Select
    Selection.Delete
    Range("B7").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable5000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable5000").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("5:5").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[8]C[-3]"
    Range("D1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("D2").Select
    End Sub
    
Sub Report3()
'
' Report3 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable3000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable3000").AddFields RowFields:=Array( _
        "Product Groups", "Product Summary"), ColumnFields:="Region", PageFields:= _
        Array("Product", "Revenue Type", "Funnel Status", "Forecast Commit Flag", _
        "Confidence Level", "Quarter")
    With ActiveSheet.PivotTables("PivotTable3000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveSheet.PivotTables("PivotTable3000").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    Range("A3").Select
    With ActiveSheet.PivotTables("PivotTable3000").PivotFields("Funnel Status")
        .PivotItems("(blank)").Visible = False
    End With
    Range("C12").Select
    ActiveSheet.PivotTables("PivotTable3000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable3000").Format xlTable2
    Columns("A:J").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$J"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$9"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$J"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("10:10").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayGridlines = False
    Range("K3").Select
    ActiveWindow.Zoom = 75
    Cells.Select
    Cells.EntireColumn.AutoFit
        Range("E1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[4]C[-4]"
    Range("E1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("E2").Select
End Sub
Sub Report6()
'
' Report6 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable6000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable6000").AddFields RowFields:=Array("Region", _
        "Product Category", "Product Summary", "Funnel Status"), PageFields:=Array( _
        "Quarter", "Revenue Type")
    With ActiveSheet.PivotTables("PivotTable6000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    Range("D8").Select
    ActiveSheet.PivotTables("PivotTable6000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable6000").Format xlTable2
    ActiveWindow.Zoom = 75
    Columns("A:L").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$L"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$5"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$L"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.Zoom = 75
    Selection.Font.Bold = True
    Range("C5").Select
    ActiveSheet.PivotTables("PivotTable6000").PivotFields("Funnel Status").AutoSort _
        xlAscending, "Funnel Status"
    Range("C5").Select
    ActiveSheet.PivotTables("PivotTable6000").PivotFields("Funnel Status"). _
        ShowAllItems = True
    Range("C14").Select
    Selection.Delete
    Cells.Select
    Cells.EntireColumn.AutoFit
    Columns("A:B").Select
    Selection.ColumnWidth = 31.14
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!RC[1]"
    Range("E1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("E2").Select
End Sub
Sub Report7()
'
' Report7 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable7000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable7000").AddFields RowFields:=Array("Region", "District", _
        "Account Name", "Quarter"), ColumnFields:="Revenue Type"
    With ActiveSheet.PivotTables("PivotTable7000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable7000").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable7000").PivotFields("Account Name")
        .AutoSort xlDescending, "Sum of Revenue Amt"
        .AutoShow xlAutomatic, xlTop, 5, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable7000").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("C6").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable7000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable7000").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[2]C[3]"
    Range("C1").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C2").Select
    End Sub
Sub Report8()
'
' Report8 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable8000", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable8000").AddFields RowFields:=Array("Region", "District", "Account Lead", _
        "Account Name", "Quarter"), ColumnFields:="Revenue Type"
    With ActiveSheet.PivotTables("PivotTable8000").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable8000").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable8000").PivotFields("Account Name")
        .AutoSort xlDescending, "Sum of Revenue Amt"
        .AutoShow xlAutomatic, xlTop, 5, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable8000").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("D6").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable8000").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable8000").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$I"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[4]C[3]"
    Range("C1").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C2").Select
    End Sub
    
    Sub Report10()
'
' Report10 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable10", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable10").AddFields RowFields:=Array("Product", _
        "Account - SSO", "Funnel Status", "Quarter"), ColumnFields:="Revenue Type", _
        PageFields:=Array("District", "Region")
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Account - SSO")
        .AutoSort xlDescending, "Sum of Revenue Amt"
        .AutoShow xlAutomatic, xlTop, 10, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Funnel Status")
        .PivotItems("(blank)").Visible = False
    End With
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("C7").Select
    Selection.Delete
    Range("B7").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable10").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable10").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("5:5").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[8]C[2]"
    Range("D1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("D2").Select
    End Sub
    Sub Report9()
'
' Report9 Macro
' Macro recorded 4/20/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable2", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable2").AddFields RowFields:=Array("Region", _
        "District", "Account - SSO"), ColumnFields:="Confidence Level", PageFields:= _
        Array("Quarter", "Product Category", "Funnel Status", "Forecast Commit Flag")
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Confidence Level")
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Forecast Commit Flag"). _
        CurrentPage = "Y"
    Range("A3").Select
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Funnel Status")
        .PivotItems("06 Order Submitted").Visible = False
        .PivotItems("07 Order Received").Visible = False
        .PivotItems("08 Won - Booked as Rev.").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    Columns("A:B").Select
    Columns("A:B").EntireColumn.AutoFit
    Range("C3").Select
    ActiveWindow.Zoom = 75
    ActiveWindow.DisplayGridlines = False
    Range("C16").Select
    ActiveSheet.PivotTables("PivotTable2").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable2").Format xlTable2
    Columns("A:G").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$G"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$7"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$G"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    Rows("8:8").Select
    ActiveWindow.FreezePanes = True
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[6]C[2]"
    Range("D1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    Range("D2").Select
End Sub
Sub Report11()
'
' Report8 Macro
' Macro recorded 4/19/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable11", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable11").AddFields RowFields:=Array("Region", "District", "Line Lead", _
        "Account Name", "Quarter"), ColumnFields:="Revenue Type"
    With ActiveSheet.PivotTables("PivotTable11").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Revenue Type").AutoSort _
        xlAscending, "Revenue Type"
    With ActiveSheet.PivotTables("PivotTable11").PivotFields("Account Name")
        .AutoSort xlDescending, "Sum of Revenue Amt"
    End With
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter")
        .PivotItems("Q1-06").Visible = False
        .PivotItems("Q2-06").Visible = False
        .PivotItems("Q4-05").Visible = False
        .PivotItems("(blank)").Visible = False
    End With
    Range("D6").Select
    Selection.Delete
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable11").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable11").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("B9").Select
    ActiveWindow.Zoom = 75
    Columns("A:H").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$H"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$4"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$I"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.DisplayGridlines = False
    Cells.Select
    Cells.EntireColumn.AutoFit
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[10]C[3]"
    Range("C1").Select
    Selection.Font.Bold = True
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("C2").Select
    End Sub
Sub Report12()
'
' Report12 Macro
' Macro recorded 5/16/2005 by jmarri
'

'
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Unity") _
        .CreatePivotTable TableDestination:="", TableName:="PivotTable5", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable5").AddFields RowFields:=Array("Region", _
        "District", "Account Lead", "Line Lead", "Account - SSO", "SSO ID", "Revenue Type") _
        , ColumnFields:="Funnel Status", PageFields:=Array("Quarter", _
        "Forecast Commit Flag")
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Revenue Amt")
        .Orientation = xlDataField
        .Caption = "Sum of Revenue Amt"
        .Function = xlSum
        .NumberFormat = "#,##0_);[Red](#,##0)"
    End With
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Funnel Status").AutoSort _
        xlDescending, "Funnel Status"
    Range("A8").Select
    ActiveSheet.PivotTables("PivotTable5").PivotSelect "", xlDataAndLabel, True
    ActiveSheet.PivotTables("PivotTable5").Format xlTable2
    Cells.Select
    Cells.EntireColumn.AutoFit
    ActiveWindow.Zoom = 75
    Columns("E:E").Select
    Selection.ColumnWidth = 63
    Range("H5").Select
    Selection.Delete
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "=Analytics!R[10]C[-3]"
    Range("D1").Select
    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.Font.Bold = True
    ActiveWindow.DisplayGridlines = False
    Columns("A:P").Select
    ActiveSheet.PageSetup.PrintArea = "$A:$P"
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$5"
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A:$P"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    Columns("B:D").Select
    Selection.ColumnWidth = 15.43
    Columns("H:P").Select
    Columns("H:P").EntireColumn.AutoFit
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Range("D3").Select
End Sub


<<<<<<
======================
ThisWorkbook
>>>>>>
Attribute VB_Name = "ThisWorkbook"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet1
>>>>>>
Attribute VB_Name = "Sheet1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet2
>>>>>>
Attribute VB_Name = "Sheet2"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet23
>>>>>>
Attribute VB_Name = "Sheet23"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet4
>>>>>>
Attribute VB_Name = "Sheet4"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet5
>>>>>>
Attribute VB_Name = "Sheet5"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet6
>>>>>>
Attribute VB_Name = "Sheet6"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet7
>>>>>>
Attribute VB_Name = "Sheet7"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet8
>>>>>>
Attribute VB_Name = "Sheet8"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True

<<<<<<
======================
Sheet9
>>>>>>
Attribute VB_Name = "Sheet9"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet10
>>>>>>
Attribute VB_Name = "Sheet10"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet25
>>>>>>
Attribute VB_Name = "Sheet25"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet20
>>>>>>
Attribute VB_Name = "Sheet20"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet33
>>>>>>
Attribute VB_Name = "Sheet33"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet14
>>>>>>
Attribute VB_Name = "Sheet14"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet15
>>>>>>
Attribute VB_Name = "Sheet15"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet16
>>>>>>
Attribute VB_Name = "Sheet16"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet17
>>>>>>
Attribute VB_Name = "Sheet17"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet18
>>>>>>
Attribute VB_Name = "Sheet18"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet19
>>>>>>
Attribute VB_Name = "Sheet19"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet35
>>>>>>
Attribute VB_Name = "Sheet35"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet26
>>>>>>
Attribute VB_Name = "Sheet26"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet22
>>>>>>
Attribute VB_Name = "Sheet22"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet13
>>>>>>
Attribute VB_Name = "Sheet13"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet34
>>>>>>
Attribute VB_Name = "Sheet34"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Module2
>>>>>>
Attribute VB_Name = "Module2"
Sub Refresh()
'
' Refresh Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    Range("A7").Select
    ActiveSheet.PivotTables("Main_Summary").PivotCache.Refresh
    ActiveSheet.PivotTables("Finance_Main").PivotCache.Refresh
    ActiveWindow.SelectedSheets.Visible = False
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Cover").Select
    Range("L2").Select
End Sub


Sub Current()
'
' Current Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Application.Run "'Opportunity & Forecast Report_Northeast.xls'!CurrentPrep"
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    ActiveSheet.PivotTables("Main_Summary").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable95").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable94").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable93").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable92").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable89").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable90").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable91").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable99").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable98").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable97").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable88").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable87").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable86").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable85").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable84").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable82").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable83").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable76").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable77").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable78").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable79").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable80").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable81").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable75").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable68").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable69").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable70").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable71").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable72").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable74").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable73").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys PBU").Visible = True
    Sheets("Summarys PBU").Select
    ActiveSheet.PivotTables("PivotTable103").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable104").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable105").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable106").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable107").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable110").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable109").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable108").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable100").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable101").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable102").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable111").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable112").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable113").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable114").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable115").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable117").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable116").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable123").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable122").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable121").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable120").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable119").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable118").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable124").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable131").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable130").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable129").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable128").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable127").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable125").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable126").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys Category").Visible = True
    Sheets("Summarys Category").Select
    ActiveSheet.PivotTables("PivotTable22").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable23").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable24").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable20").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable19").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable17").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable16").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable25").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable26").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable27").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable28").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable29").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable30").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable31").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable21").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable9").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable12").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable32").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Quarter").CurrentPage = _
        "Q3-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cover").Select
    Range("L2").Select
End Sub


Sub CurrentPlus1()
'
' CurrentPlus1 Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Application.Run "'Opportunity & Forecast Report_Northeast.xls'!FuturePrep"
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    ActiveSheet.PivotTables("Main_Summary").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable95").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable94").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable93").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable92").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable89").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable90").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable91").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable99").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable98").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable97").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable88").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable87").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable86").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable85").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable84").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable82").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable83").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable76").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable77").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable78").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable79").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable80").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable81").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable75").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable68").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable69").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable70").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable71").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable72").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable74").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable73").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys PBU").Visible = True
    Sheets("Summarys PBU").Select
    ActiveSheet.PivotTables("PivotTable103").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable104").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable105").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable106").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable107").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable110").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable109").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable108").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable100").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable101").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable102").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable111").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable112").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable113").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable114").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable115").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable117").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable116").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable123").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable122").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable121").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable120").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable119").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable118").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable124").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable131").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable130").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable129").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable128").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable127").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable125").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable126").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys Category").Visible = True
    Sheets("Summarys Category").Select
        ActiveSheet.PivotTables("PivotTable22").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable23").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable24").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable20").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable19").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable17").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable16").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable25").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable26").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable27").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable28").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable29").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable30").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable31").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable21").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable9").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable12").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable32").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Quarter").CurrentPage = _
        "Q4-05"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cover").Select
    Range("L2").Select
End Sub
Sub CurrentPlus2()
'
' CurrentPlus2 Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Application.Run "'Opportunity & Forecast Report_Northeast.xls'!FuturePrep"
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    ActiveSheet.PivotTables("Main_Summary").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable95").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable94").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable93").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable92").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable89").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable90").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable91").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable99").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable98").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable97").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable88").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable87").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable86").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable85").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable84").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable82").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable83").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable76").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable77").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable78").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable79").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable80").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable81").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable75").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable68").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable69").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable70").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable71").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable72").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable74").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable73").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys PBU").Visible = True
    Sheets("Summarys PBU").Select
    ActiveSheet.PivotTables("PivotTable103").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable104").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable105").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable106").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable107").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable110").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable109").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable108").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable100").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable101").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable102").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable111").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable112").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable113").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable114").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable115").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable117").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable116").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable123").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable122").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable121").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable120").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable119").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable118").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable124").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable131").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable130").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable129").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable128").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable127").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable125").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable126").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys Category").Visible = True
    Sheets("Summarys Category").Select
    ActiveSheet.PivotTables("PivotTable22").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable23").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable24").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable20").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable19").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable17").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable16").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable25").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable26").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable27").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable28").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable29").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable30").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable31").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable21").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable9").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable12").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable32").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Quarter").CurrentPage = _
        "Q1-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cover").Select
    Range("L2").Select
End Sub
Sub All()
'
' All Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Application.Run "'Opportunity & Forecast Report_Northeast.xls'!FuturePrep"
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    ActiveSheet.PivotTables("Main_Summary").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable95").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable94").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable93").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable92").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable89").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable90").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable91").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable99").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable98").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable97").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable88").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable87").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable86").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable85").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable84").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable82").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable83").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable76").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable77").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable78").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable79").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable80").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable81").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable75").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable68").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable69").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable70").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable71").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable72").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable74").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable73").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys PBU").Visible = True
    Sheets("Summarys PBU").Select
    ActiveSheet.PivotTables("PivotTable103").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable104").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable105").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable106").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable107").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable110").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable109").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable108").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable100").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable101").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable102").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable111").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable112").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable113").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable114").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable115").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable117").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable116").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable123").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable122").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable121").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable120").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable119").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable118").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable124").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable131").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable130").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable129").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable128").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable127").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable125").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable126").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys Category").Visible = True
    Sheets("Summarys Category").Select
    ActiveSheet.PivotTables("PivotTable22").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable23").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable24").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable20").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable19").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable17").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable16").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable25").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable26").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable27").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable28").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable29").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable30").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable31").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable21").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable9").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable12").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable32").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Quarter").CurrentPage = _
        "All"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cover").Select
    Range("L2").Select
End Sub

Sub CurrentPlus3()
'
' CurrentPlus3 Macro
' Macro recorded 1/19/2005 by jmarri
'

'
    Application.Run "'Opportunity & Forecast Report_Northeast.xls'!FuturePrep"
    Sheets("Summarys").Visible = True
    Sheets("Summarys").Select
    ActiveSheet.PivotTables("Main_Summary").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable95").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable94").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable93").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable92").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable89").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable90").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable91").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable99").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable98").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable97").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable88").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable87").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable86").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable85").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable84").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable82").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable83").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable76").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable77").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable78").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable79").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable80").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable81").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable75").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable68").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable69").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable70").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable71").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable72").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable74").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable73").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys PBU").Visible = True
    Sheets("Summarys PBU").Select
    ActiveSheet.PivotTables("PivotTable103").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable104").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable105").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable106").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable107").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable110").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable109").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable108").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable100").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable101").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable102").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable111").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable112").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable113").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable114").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable115").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable117").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable116").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable123").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable122").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable121").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable120").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable119").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable118").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable124").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable131").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable130").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable129").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable128").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable127").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable125").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable126").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Summarys Category").Visible = True
    Sheets("Summarys Category").Select
    ActiveSheet.PivotTables("PivotTable22").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable23").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable24").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable2").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable20").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable19").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable18").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable17").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable16").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable15").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable14").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable25").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable26").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable27").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable28").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable29").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable30").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable31").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable21").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable9").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable10").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable11").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable12").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable32").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable13").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable8").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable5").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable7").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveSheet.PivotTables("PivotTable6").PivotFields("Quarter").CurrentPage = _
        "Q2-06"
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Cover").Select
    Range("L2").Select
End Sub
Sub FuturePrep()
'
' FuturePrep Macro
' Macro recorded 4/19/2005 by jmarri
'

'
Sheets("Region").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("CE").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Named").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Territory").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Consulting").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Category").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("PBU").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 6
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 35
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 36
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 2
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
    Sheets("Cover").Select
    Range("F14").Select
End Sub
Sub CurrentPrep()
'
' CurrentPrep Macro
' Macro recorded 4/19/2005 by jmarri
'

'
Sheets("Region").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("CE").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Named").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Territory").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Consulting").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("Category").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
Sheets("PBU").Select
    Range("C4:R5,C30:R31,C56:R57,C82:R83,C108:R109").Select
    Range("C108").Activate
    Selection.Font.ColorIndex = 1
    Range("C17:R22,C43:R48,C69:R74,C95:R100,C121:R126").Select
    Range("C121").Activate
    Selection.Font.ColorIndex = 1
    Range("C23:R28,C49:R54,C75:R80,C101:R106,C127:R132").Select
    Range("C127").Activate
    Selection.Font.ColorIndex = 1
    Range("C14:R14,C40:R40,C66:R66,C92:R92,C118:R118").Select
    Range("C118").Activate
    Selection.Font.ColorIndex = 1
    Columns("T:AH").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 94
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    Range("A1").Select
    Sheets("Cover").Select
    Range("F14").Select
End Sub



<<<<<<
======================
Sheet37
>>>>>>
Attribute VB_Name = "Sheet37"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet11
>>>>>>
Attribute VB_Name = "Sheet11"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet12
>>>>>>
Attribute VB_Name = "Sheet12"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet38
>>>>>>
Attribute VB_Name = "Sheet38"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet21
>>>>>>
Attribute VB_Name = "Sheet21"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
======================
Sheet24
>>>>>>
Attribute VB_Name = "Sheet24"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
<<<<<<
