Sub HideZeroValueRows()
    Dim ws As Worksheet, rng As Range, cel As Range
    For Each ws In ThisWorkbook.Sheets
        Select Case ws.Name
            Case Is = "TB..GF 101", "TB..GF 20%", "TB..SEF", "TB..REG TF"
        Set rng = ws.Range("EG9", ws.Cells(Rows.Count, "EH").End(xlUp).Offset(-1))
        For Each cel In rng
            If cel.HasFormula And cel.Value = 0 Then cel.EntireRow.Hidden = True
        Next cel
        Case Is = "TB - ALL FUNDS", "TB..GF CONSO"
        Set rng = ws.Range("F9", ws.Cells(Rows.Count, "G").End(xlUp).Offset(-1))
        For Each cel In rng
            If cel.HasFormula And cel.Value = 0 Then cel.EntireRow.Hidden = True
        Next cel
        End Select
    Next ws
End Sub