Hiding Blank Rows in All Sheets

Hi everybody,

I use the following code to hide blank rows in the active sheet,,

I want it to work with all sheets,

Can you help me in this case,

Please Login or Register  to view this content.

Thank you,

You can try with this code (using most of your source):

Sub Hide()

With ActiveWorkbook
For Each Sh In .Sheets
Sh.Select
For a = 1 To 1000
BK = Sh.Cells(a, 1)
If BK = "" Then
Sh.Rows(a).Hidden = True
End If
Next
Next
End With
End Sub

Thank you so much Mr. antoka05 for your fast reply and perfect code,