macro that hides rows run slow

Hello,

I wrote a very simple macro(link to a button) that hides rows and columns.

The macro usually works very fast (1/2 second)

The problem is that after I print out somting it bocomes very slow
(almost 40 seconds to run)

The only way I know how to solve this is to close the file and then reopen it (without printing)

here is the code:

Sub hideRowsColumns()

Dim y As Integer
Application.ScreenUpdating = False
Application.Calculation = xlManual

Cells(1, 1).EntireColumn.Hidden = True
For y = 1 To 300
  If UCase(Cells(y, 1)) = "HIDE" Then Cells(1, 1).EntireRow.Hidden = True
Next y

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

End Sub

Does this problem sounds familiar to anybody?

I'll be most grateful to any help or suggestion.