Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I got a response to the following post on Friday from Dave
Peterson who stated this code worked for him in Excel 2002. I just had one of our techs try this code in 2002 and it didn't work for him either. I have Excel 2002 (10.6501.6626) SP3; does anyone know if the version is making a difference in this code not working? The following code works fine in Excel 2000, but will not work in XP. I'm getting an "object required" error on line 3; "If Target.Address = "$E$1" Then". Thanks for any help on this. Sub Worksheet_Change(ByVal Target As Excel.Range) Dim ws As Worksheet If Target.Address = "$E$1" Then If Target.Value _ = "Hi-Low" Then For Each ws In Sheets(Array("Period 1", "Period 2", "Period 3", "Period 4", "Period 5", "Period 6", _ "Period 7", "Period 8", "Period 9", "Period 10", "Period 11", "Period 12")) ws.Columns("M:O").EntireColumn.Hidden = False Next ws End If If Target.Value _ = "EDLC" Then For Each ws In Sheets(Array("Period 1", "Period 2", "Period 3", "Period 4", "Period 5", "Period 6", _ "Period 7", "Period 8", "Period 9", "Period 10", "Period 11", "Period 12")) ws.Columns("M:O").EntireColumn.Hidden = True Next ws End If End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Change Event not working on 1 machine | Excel Discussion (Misc queries) | |||
Worksheet Change Event | Excel Discussion (Misc queries) | |||
worksheet change event not working | Excel Discussion (Misc queries) | |||
Worksheet Change Event | Excel Discussion (Misc queries) | |||
help with worksheet change event | Excel Programming |