Using only one of 4 slicers to triger Workbook_SheetTableUpdate event

[tyjulianchen]

I got 4 slicers - "Class", "Course", "Presenter" and "Topic" to update an identical pivot table. However, I just want the specific slicer, say the bottom layer of the 4 slicers - "Topic" to triger the Workbook_SheetTableUpdate event other than the rest ones otherwise. How can I modify the VBA script?



Alternatively, if I use Worksheet_PivotTableUpdate event
other than above mentioned Workbook_SheetTableUpdate event , how to change the code?

and the last but not least, it must be a way to run the VBA behind the scenes making it invisible while the cursor moves around the worksheet, right? How to make it happen?

[tyjulianchen]

It's a pity that no reply till now. The good news is that I've got the solution from somewhere else. Let me share it here with those who concerned:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Application.CountA(Range("I43:I44")) = 1 Then
play
End If
End Sub

Sub play()
Application.ScreenUpdating = False 'disable screen updating
With ActiveSheet
.Hyperlinks.Add Anchor:=.Range("J43"), _
Address:=Range("I43").Value, _
ScreenTip:="Play Video", _
TextToDisplay:="Watch"
Range("J43").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
Application.ScreenUpdating = True 'enable screen updating
End Sub