Error 1004

[Cberry]

Why is this:

Columns("BO:IV").Select
    Selection.EntireColumn.Hidden = True

Giving me a 1004 error.

Here is the entire macro:

ActiveSheet.Unprotect
    Range("A1").Select
    Sheets("Calculation").Select
    ActiveSheet.Unprotect
    Range("BN3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("BM3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A2").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets("Calculation").Select
    Range("E3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("I3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Columns("BO:IV").Select
    Selection.EntireColumn.Hidden = True
    Range("A1").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[Joe4]

Is that a zero or on "O"?

Columns("BO:IV").Select

 

[erik.van.geit]

Hi,

and what's the error message ?
you get error 1004 when the sheet is protected "property hidden ..."

but then some lines before there should be a bug too
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
....
Selection.ClearContents

kind regards,
Erik