I have a worksheet with data that links to a pivottable on another tab. The data updates with slicers on the worksheet. I also have code which hides/unhides blank rows in my data when the worksheet is activated. However, I'd like the code to work when the users changes the slicer selections - I don't want them to have to leave the worksheet and then come back for the rows to hide. Any suggestions?

```
    Option Explicit
 Private Sub Worksheet_Activate()
 Dim r As Range, c As Range
 Set r = Range("a16:a65,a68:a118,a121:a171,a174:a224")
 Application.ScreenUpdating = False
For Each c In r.Rows
 If Len(c.Cells(1).Text) + Len(c.Cells(2).Text) = 0 Then
     c.EntireRow.Hidden = True
 Else
     c.EntireRow.Hidden = False
 End If
 Next c
 Application.ScreenUpdating = True
 End Sub

```