Worksheet Change Event

E

Eva Shanley

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
 
D

Dave Peterson

Your code worked fine for me (xl2002).



Eva said:
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Macro not working in Excel 2002 5
Worksheet Change Event - not working in XP 3
Help with code - countdown timer 14
Scehduling in excel 0
Len and InStr problem manipulating strings 3
Pasting Selections from Multiple Sheets along with their Sheet's Name 2
loop and some more 6
Auto Entering Dates Across Seven Worksheets and Navigating 2

Top