Hide column - what is wrong with this code?

[nutrastat]

Hi,

Can somebody tell me what is wrong with the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("WK05_TRUE_FALSE").Value = False Then
Range("AI:AL").Selection.EntireColumn.Hidden = True
Else
Range("AI:AL").Selection.EntireColumn.Hidden = False
End If
End Sub

I have a cell called WK05_True_False which equals 'False' if it is NOT a 5 week period, and goes to 'True' if it is, as a month date on the front sheet is changed. When 'False' I want to hide columns AI:AL.

This macro is on the sheet to which it relates, but I keep getting

Run time error '1004'
Method Rage of object worksheet failed

Can anyone help - please?

 

[VoG]

Perhaps

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("WK05_TRUE_FALSE").Value = False Then
    Range("AI1:AL1").EntireColumn.Hidden = True
Else
    Range("AI1:AL1").EntireColumn.Hidden = False
End If
End Sub

 

[nutrastat]

Sorry, still have the same error coming up.

Do you have any other ideas why the line...


If Range("WK05_TRUE_FALSE").Value = False Then
</pre>comes up as an error?

 

[xenou]

Hmmm,
I sometimes get unwanted results with named ranges on other sheets...

Maybe you'd be better off using code in the change event in the named cell itself, on that sheet ...

PSEUDOCODE (Syntax is not reliable)

Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("WKSH_TRUE_FALSE").Address Then
     If Target.Value Then
        Worksheets("SheetX").Columns(XX).Hidden = True
    Else
        Worksheets("SheetX").Columns(XX).Hidden = False
    End If
End If

Otherwise, try fully qualifying the ranges with worksheets:
Worksheets("Sheet1").Range("MyRange").Value