Hi, aaron061883,
based on the first code maybe
Sub HideRowsBasedOnCondtion_2()
Dim iStart As Integer, iEnd As Long, i As Long, blHide As Variant
Dim x As Long
iStart = Sheets("First").Index
iEnd = Sheets("Last").Index
blHide = MsgBox("Do You Want To Hide The Rows?", vbYesNo, "Hide Rows?")
For x = iStart To iEnd
With Sheets(x)
.Rows("11:28").Hidden = False
If blHide = vbYes Then
For i = 11 To 28
If .Cells(i, "I").Value = "" Then
.Rows(i).Hidden = True
End If
Next i
End If
End With
Next x
End Sub
Ciao,
Holger
Bookmarks