Simple macro - Excel does not respond, black screen and long run time

**sryair** · 03-22-2022, 04:44 AM

hi,

Trying to run a simple macro

The macro works but it takes 3-4 minutes to perform the operation

Immediately upon running the macro a black screen opens and a message that Excel is not responding

Asks for a recommendation on how to make the Excel respond and the running time be short

Thanks in advance

the macro:

Application.ScreenUpdating = False
Application.Calculation = xlManual

LastRow = 500 'have 500 rows in the data

For i = 1 To LastRow 'loop through each row and check for required criteria

'To hide all the rows with the Even Number in Column A

If IsNumeric(Range("A" & i)) = True Then
If Range("A" & i) Mod 2 = 0 Then Rows(i).EntireRow.Hidden = True
End If

Next

**KOKOSEK** · 03-22-2022, 04:54 AM

Try with:

Please Login or Register  to view this content.

**sryair** · 03-22-2022, 04:59 AM

hanks
I tried different conditions like:

If Cells(J, "A") = True Then rows(J).EntireRow.Hidden = False

The main problem is that the Excel does not respond, black screen and long running time

**KOKOSEK** · 03-22-2022, 05:05 AM

We have no idea what you got in col. A.
Maybe you can attached your file, please check yellow banner at the top of the page.
Otherwise:
1.JPG

**TMS** · 03-22-2022, 05:12 AM

There's nothing wrong with the code. It should be virtually instantaneous.

Please Login or Register  to view this content.

Do you have other code in the workbook?

Fast answers need visual help. Please read the yellow banner at the top of this page on how to attach a file.

**sryair** · 03-22-2022, 06:06 AM

A sample file is attached

In this file the macro runs in a very short time and everything is fine

In the original file I work with (contains a lot of worksheets and formulas) the runtime is very long,
the Excel does not respond and the screen is black.

The problem is probably as fundamental as how to handle memory management, giving priority to Excel