Hello

I wonder if you can offer some assistance please.
I am trying to create some code that will look at a range of cells and if any of them contain a tigger ( so a 0 or a 1) then the whole row is hidden. The problem I have is that I have 25 sheets I need to do this over and the methods I have been looking at are long and cumbersome!

I would like to try and get away with the quickest processing option available if possible!

Here is what I have been trying:

Sub HideRt1()
On Error Resume Next
With Range("Rt1!K9:K43")
.EntireRow.Hidden = False
For i = 1 To .Rows.Count
If WorksheetFunction.Sum(.Rows(i)) = 0 Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
End With
End Sub
I can repeat this for all of the sheets and then have one macro to call them all, but it is long and rather slow. After 2 minutes it is still at around sheet 15!! eek!

On another macro I have an array set up to perform a different task, but I am having problems in adapting it to suit my above requirements. The other macro look a little like this..

Sub Step4_CleanUp()

Application.ScreenUpdating = False
   Dim i As Variant
        
    Dim myArray As Variant
    myArray = Array("St1", "St2", "St3", "St4", "St5", "St6", "St7", "St8", "St9", "St10", "St11", "St12", "St13", "St14", "St15", "St16", "St17", "St18", "St19", "St20", "St21", "St22", "St23", "St24", "St25")
        
    For Each i In myArray
    Dim c As Range
    For Each c In Range("K9:K43")

    ** Do some funky business **

    Next c
    Next
          
Application.ScreenUpdating = True
End Sub

If anyone is able to help me out I would greatly appreciate it. I think the problem really isthe looping all the time and this is slow, so an alternative method without macro - perhaps some type of validation or conditioning is also viable if you can direct me.

Thanks alot!
Chris