Hola! Johnnatan.
Quizá notes que la siguiente variante es "rapidita":
Código PHP:
Sub plan_p5()
Dim i As Long, Vec, C As Range
Application.ScreenUpdating = False
With Range("c768:c839")
.Rows.Hidden = False
Vec = Evaluate("IF(" & .Address & " = 0, ROW(" & .Address & "))")
On Error Resume Next
i = WorksheetFunction.Small(Vec, 1)
If i = 0 Then Exit Sub
Set C = Cells(i, .Column)
For i = 2 To .Count
Set C = Union(C, Cells(WorksheetFunction.Small(Vec, i), .Column))
If Err.Number > 0 Then Exit For
Next i
Err.Clear
End With
C.Rows.Hidden = True
Application.ScreenUpdating = True
End Sub
Saludos, Cacho R.
Cita:
Iniciado por Johnnatanfigueroa 
tengo esta macro pero se tarda mucho tiempo en ejecutar hay alguna manera mas paralela de hacerlo, lo que hace es verificar sie l valor de cada celda en un rango es igual a cero y si es verdadero oculta esa fila completa
Código PHP:
Sub plan_p5()
Dim a As Variant
For Each a In Range("c768:c839")
If a.Value = 0 Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
End Sub