Hide Columns w/Change Event
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
|