Macro that Hides Rows Doesn't Update When Named Range Changes Sizes - excel

Question

I compiled some code that hides rows based on some certain criteria. At the beginning of the code, I unhide all the rows so that when the sheet recalculates the correct rows hide. Here is the code:
Private Sub Worksheet_Calculate()
Dim ws As Worksheet
Dim primaryarray As Range
Dim rw As Range
Set ws = ThisWorkbook.Sheets("Experience Rating Sheet")
Set primaryarray = ws.Range("B9:M322")
Application.ScreenUpdating = False
' unhide all rows before we begin
primaryarray.EntireRow.Hidden = False
For Each rw In primaryarray.Rows
rw.EntireRow.Hidden = BlankOrZero(rw.Cells(4)) And BlankOrZero(rw.Cells(8))
Next rw
Application.ScreenUpdating = True
End Sub
Function BlankOrZero(c As Range)
BlankOrZero = Len(c.Value) = 0 Or c.Value = 0
End Function
The range that it is checking is a named range that shows
=IF(Expected_Actual_Losses="","",Expected_Actual_Losses)
in order to get rid of random zeros.
I have to manually press the the calculate worksheet each time to fix it because the calculation is on manual.
I have tried putting Worksheet.Calculate in the Module to compensate for this but it has not worked.
By compensate, I mean automate this calculation in order to change how many rows are hidden.
Note: The source for the named range is also 2 different sections that have dynamic formulas that change sizes based on criteria I set. Using index/match for one and filter/sortby formulas for the other.

Answer 1

PotterFan,
I beg to differ, the following code has no problem hiding/unhiding rows on a non-active sheet.
Option Explicit
Sub HideFilter(lFilter As Long)
Dim wksHide As Worksheet
Dim lCntr As Long
Dim lFirstRow As Long
Dim lLastRow As Long
Sheets("Sheet1").Select 'Just to make sure not running from Sheet2!
Set wksHide = Sheets("Sheet2")
lFirstRow = Range("HideRange").Row 'Return 1st row
lLastRow = (Range("HideRange").Count - 1) + lFirstRow
wksHide.Range("HideRange").EntireRow.Hidden = False
For lCntr = lLastRow To lFirstRow Step -1
If wksHide.Cells(lCntr, 1).Value = lFilter Then wksHide.Cells(lCntr, 1).EntireRow.Hidden = True
Next lCntr
End Sub
Before:
After:

Answer 2

Turns out when I tried to calculate the worksheet on my other macro it was in-between an Application.EnableEvents command so the Worksheet_Calculate wouldn't trigger when it was supposed to. Here is the other Macro:
Sub UpdateReport()
Application.ScreenUpdating = False
Application.EnableEvents = False
'Puts in the effective date and member name
Dim ws As Worksheet
Dim Report As Variant
Dim xprating As Variant
Set Report = ThisWorkbook.Sheets(Array("Yearly Breakdown", "Loss Template", "Codes", "Yearly Breakdown", "Cover Sheet", "Ag Loss Sensitivity", "Experience Rating Sheet", "Loss Ratio Analysis", "Mod Analysis&Strategy Proposal", "Mod Snapshot", "Mod & Potential Savings"))
Set xprating = ThisWorkbook.Sheets("Experience Rating Sheet")
For Each ws In Report
ws.Calculate
Next ws
For Each ws In Report
ws.Calculate
ws.PageSetup.RightFooter = Sheet17.Range("B3").Text & Chr(10) & "Mod Effective Date: " & Sheet17.Range("B4")
Next ws
Application.EnableEvents = True
xprating.Calculate
Application.ScreenUpdating = True
I just stuck xprating.Calculate after Application.EnableEvents = True and it started updating the rows automatically.