Removing Blank Feilds with Button (Macro) (PRINT AREA ISSUES) Help!!

Below is the VBA Code I use for my sheet. I have feilds formulated between $A$18:$W$2500, and if they return a blank value or "" then it automatically hides the row. The VBA code was put in well after the sheet was created and the original print_area for the sheet is A17:W150. The Macro only looks at column A for the blanks and from what I can tell has nothing to do with the print_area. But, if I change the print_Area to what I want the Macro quits working properly. When I change print_area (even if I change it to the exact same thing), when I hit the Macro button it just runs indefinetly with no end. If I hit ESC twice and hit end Macro then the Macro stops running and produces the correct results. So in essence, the button (Macro) is still working, it just never stops running once the Print_Area is changed. I need the print area to be A6:W2500 so that it captures the entire return of Non-Hidden fields. Any Ideas why it would be doing this?


Sub L12OVER500_CommandButton1_Click()

With Application
.EnableEvents = False
.ScreenUpdating = False
End With

Dim rCell As Range

For Each rCell In Range("A18:A2500")
If rCell = "" Then
rCell.EntireRow.Hidden = True
Else
rCell.EntireRow.Hidden = False
End If
Next rCell

Application.EnableEvents = True

End Sub

Nope, just made the screen flash.. I had is set to FALSE

Yeah I tried it at the beginning and the end and it too works as long as I dont change the Print_Area. As soon as I change the print_area it goes bonkers and runs indefinetly. Its almost like change the print area is affecting the "End If" function and its not making it past that point. When it runs indefinetly and I try to debug it is highlight the "End If" Function.

Originally Posted by Arkadi

I just meant at the very end of the sub, but I doubt that's your issue
issue

I think I got it and I feel dumb! I would use the xladept's code but I have multiple Macros and button functions and I dont want them all trying to run. The issue is my wonderful work computer believe it or not. It only has 2gb of RAM and I have used this database so much that when I made the change the RAM was full so it was locking up because it was different. I am just used to working with a little more RAM so once I cleared my RAM it began to run. Still slow, but I believe it will speed up after being used a few times. Sry to waste your time and I appreciate the help.

Originally Posted by Arkadi

What about xladept's code? Same?
Another suggestion, only try to hide the row if not already hidden? I.e. if.. Hidden = false then... Hidden = true? Sorry poor typing on cell
And/or if rCell.value = ""