code to refresh pivots and then hide rows

[mecheet]

Hi

I need some code that will refresh all pivot tables and then hide rows, but these rows with change depending on the refresh of the pivots.

Is there anyway this can be done.

the rows will always have grang total as the last row to be shown, there will be several per worksheet and several worksheets in the workbook.

Any help appreciated.

Thanks

 

[mecheet]

After looking around i have found the below code which works, but i need this to stop at row 100, can anyone help with this?

Is there then away to apply this to all worksheets?

Sub HideRowsWithZero()
    Dim x  As Integer
    Dim CheckValue
    x = 1
    Range("A1").Activate
    Do Until x > ActiveSheet.UsedRange.Rows.Count
        CheckValue = ActiveCell.Offset(0, 1).Value
        If CheckValue = 0 Then
            ActiveCell.EntireRow.Hidden = True
        ElseIf CheckValue <> 0 And ActiveCell.EntireRow.Hidden = True Then
            ActiveCell.EntireRow.Hidden = False
        End If
        ActiveCell.Offset(1, 0).Activate
        x = x + 1
    Loop
    Range("A1").Activate
End Sub