J
Job
The following code works fine in 2003 but not in 2000. Any idea why?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$6" Or Target.Address = "$E$8" Then
Application.ScreenUpdating = False
Sheets("Ranking Detail").Range("B10:W32").Sort Key1:=Sheets("Ranking
Detail").Range("F10"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C2").Select
updte
End If
End Sub
Cheers,
Job
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$6" Or Target.Address = "$E$8" Then
Application.ScreenUpdating = False
Sheets("Ranking Detail").Range("B10:W32").Sort Key1:=Sheets("Ranking
Detail").Range("F10"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C2").Select
updte
End If
End Sub
Cheers,
Job