Frank

Here's the code

Private Sub Hide_Row(
Dim r As Lon
Application.ScreenUpdating = Fals
With Worksheets("Sheet2"
For r = .UsedRange.Rows(.UsedRange.Rows.Count).Row To 5 Step -
If Application.CountA(Range(Cells(r, "C"), Cells(r, "O"))) = 0 The
.Rows(r).Hidden = Tru
End I
Nex
End Wit
Application.ScreenUpdating = Tru
End Su

Is there some sort of step to activate it

Thank
Brya
Grafenwoehr, Germany