Formatting Pivot table with STYLES

     

     

    Sub Format_PivotTable_Based_On_Its_StyleNumber()
    InputSH
    Define_PivotTable
    'SH.PivotTables("Sales").TableStyle2 = "PivotStyleLight17"
    'SH.PivotTables("Sales").TableStyle2 = "PivotStyleMedium6"
    SH.PivotTables("Sales").TableStyle2 = "PivotStyleDark3"
    End Sub

     

    Download The Workbook