Dear mikerickson
Thank you for your help, while running in code can i show a msg box in between "pls Wait while Processing". when code complete then "successfully Done".
[VBA]
Sub HideZeroQAllSheets()
Dim oneSheet As Worksheet
Application.ScreenUpdating = False
For Each oneSheet In ThisWorkbook.WorkSheets
Call HideRowIfZeroQ(oneSheet)
Next oneSheet
Application.ScreenUpdating = True
End Sub
Sub HideRowIfZeroQ(oneWorksheet As Worksheet)
Dim R As Range, lastrow As Long
With oneWorksheet.Range("o1:o800")
For Each R In Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
R.EntireRow.Hidden = (CStr(R.Value) = "0")
Next R
End With
End Sub
[/VBA]