Hello!

Im using this code to hide empty rows. It works fine but the problem is that I have a few graphs in this sheet and it takes really a lot of time to execute the macro.
I was wondering if there is maybe a quicker way of running this macro like selecting the whole rows which are empty and hide them all at once instead of going one by one...


Sub HideRows()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

Range("B45").Activate
While ActiveCell.Row <> 529
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Activate
Wend

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True

End Sub


Thanks for the help!!

Regards,