Worksheet_Calculate() Multiple Ranges

[mkswanson]

I'm trying to use the following snipet to hide 0 value rows.

Private Sub Worksheet_Calculate()
Dim cell As Range
For Each cell In Range("F14:F16", "F22:F30", "F36:F48", "F54:F59", "F65:F68", "F74:F77", "F84:F89")
If cell.Value = 0 Then
cell.EntireRow.Hidden = True
Else
cell.EntireRow.Hidden = False
End If
End Sub

This works find if I only have one range specifed, but throws "Wrong number of arguments or invalid property assignment" if I specify more than one.

What am I missing?

[Bob Phillips]

Private Sub Worksheet_Calculate()
Dim cell As Range
For Each cell In Range("F14:F16,F22:F30,F36:F48,F54:F59,F65:F68,F74:F77,F84:F89")
cell.EntireRow.Hidden = (cell.Value = 0)
Next cell
End Sub

[mkswanson]

Thank you!