Macro to hide rows if the value is zero in all five columns

[harry2908]

I am not familiar with VBA, i require a macro which would hide rows if the value is zero in all five columns.

The macro need to see the data only b/w range C4:G65.
If all five cells i.e. C4, D4, E4, F4, G4 are 0 or 0.00 hide those rows.

Please can someone help with a macro....
Appreciate your help...!!!

 

[Sektor]

[COLOR="Blue"]Sub[/COLOR] FFF()

    [COLOR="Blue"]Dim[/COLOR] i [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Long[/COLOR]
    
    [COLOR="Blue"]For[/COLOR] i = 4 [COLOR="Blue"]To[/COLOR] 65
        [COLOR="Blue"]If[/COLOR] WorksheetFunction.Sum(Range("C" & i & ":G" & i)) = 0 [COLOR="Blue"]Then[/COLOR]
            Cells(i, "A").EntireRow.Hidden = [COLOR="Blue"]True[/COLOR]
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
    [COLOR="Blue"]Next[/COLOR]
    
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[harry2908]

Thanks a lot Sektor...

This has worked really well.... Appreciate your help..!!!

 

[Sektor]

Not at all! It's possible to write even more shorter:

[COLOR="Blue"]Sub[/COLOR] FFF()

    [COLOR="Blue"]Dim[/COLOR] i [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Long[/COLOR]
    
    [COLOR="Blue"]For[/COLOR] i = 4 [COLOR="Blue"]To[/COLOR] 65
        Cells(i, "A").EntireRow.Hidden = WorksheetFunction.Sum(Range("C" & i & ":G" & i)) = 0
    [COLOR="Blue"]Next[/COLOR]
    
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]