Hi Marcia,
How about this
Code:
Sub HideRow2()
Dim c As Range
Dim ws As Worksheet
Dim rng As Range
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
Set rng = ws.Range("J3:J" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)
rng.Formula = "=IF(SUM(H3:I3),"""",""hide"")"
For Each c In rng
If c.Value = "hide" Then ws.Rows(c.Row).EntireRow.Hidden = True
Next c
Next ws
Application.ScreenUpdating = True
End Sub