Unable to set the Hidden property of the Range class

I am trying to Hide columns but keep getting this error.

Run-time error ‘1004’
Unable to set the Hidden property of the Range class

Sub COLLAPSED()
'
' COLLAPSED Macro
' Macro recorded 1/15/2007 by Margie Wong - x4346
'

Cells.Select
Selection.EntireColumn.Hidden = False
Range("A7").Select
Do Until ActiveCell = "End"
If ActiveCell = "HIDE" Then
Selection.EntireColumn.Hidden = True
End If
ActiveCell.Offset(0, 1).Select
Loop

Columns("ha:ha").Select
Selection.EntireColumn.Hidden = True
Range("A6").Select
End Sub

Please help!

Hi VBA Noob,

That didn't help. Any more suggestions please. I can't even do a manual hide. Keep getting this error msg. "Cannot shift objects off sheet." I have tried to delete columns but get error msg “Microsoft Excel has encountered a problem and needs to close.”

PLEASE HELP!

Hi, still no luck!

Hi Paul,

I want to thank you very much for the link you provided. I did create the macro indicated from Method 2, and a "MIRACLE" happened. I was able to HIDE all the columns I wanted.

I had tried so many times to delete columns, rewrite the macro, tried to manually hide the columns ... nothing helped ... until I added that macro from the link.

Your assistance is greatly appreciated!!!

Thanks again!