Hello my fellow nerds

[jmutsche]

You guys are awesome. I love this site. I just wanted to say thanks and hello. I also have a post I am looking for help on.

Sub esis()
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
 Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
  With pf
If pi.TRAN_GROUP = "ESIS" _
    Or pi.TRAN_GROUP = "ESISFF" _
    Or pi.TRAN_GROUP = "ESISFFC" _
    Or pi.TRAN_GROUP = "ESISMN" _
    Or pi.TRAN_GROUP = "PMIGEN1ESIS" Then
        pi.Visible = False
     Else
       pi.Visible = True
End If
                              Next pi
                                End With
Application.ScreenUpdating = True
End Sub

Sub esis2()
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
Set pf = ActiveSheet.PivotTables("PivotTable4").PivotFields("TRAN_GROUP")
  With pf
Select Case pi.Caption
Case "ESIS", "ESISFF", "ESISFFC", "ESISMN", "PMIGEN1ESIS"
    pi.Visible = True
Case Else
    pi.Visible = False
End Select
 End With
 Application.ScreenUpdating = True
End Sub

I am trying different things to be able to select multiple Items in a pivot field. I want to be able to toggle it on and off with a hotkey. can anyone help me?

[SamT]

Nobody reads these Intro Threads very often. You need to post your question in the Excel Forum/Folder.

Please read the Forum FAQs Linked to in my Signature.