Hide Columns w/Change Event

  • Thread starter Thread starter Eva Shanley
  • Start date Start date
E

Eva Shanley

Tom Ogilvy responded to the first post I sent awhile ago,
but I'm getting an error executing the code he was nice
enough to give me; "Method range of object_worksheet
failed." I've tried several things and keep getting the
error. The code hides 3 columns if "EDLC" is the
selection. Any help is greatly appreciated; the error
occurs on both "If" lines.

Sub Worksheet_Change(ByVal Target As Excel.Range)

If Application.Intersect(Target, Range("Plan Costs!e1")) _
= "Hi-Low" Then
Exit Sub
End If
If Application.Intersect(Target, Range("Plan Costs!e1")) _
= "EDLC" Then
Sheets("Period 1").Columns("M:O") _
.EntireColumn.Hidden = True

End If

End Sub
 
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$E$1" Then
If Target.Value _
= "Hi-Low" Then
Exit Sub
End If
If Target.Value _
= "EDLC" Then
Sheets("Period 1").Columns("M:O") _
.EntireColumn.Hidden = True

End If
End If
End Sub

Worked fine for me. This assumes the code is in the sheet module for sheet
Plan Costs
 
Thanks Tom, now the code works fine. Apparently the
original If Application.Intersect(Target, Range("Plan
Costs!e1")) was causing a problem that I wasn't good
enough to figure out. Thanks again for your help.
 
Back
Top