Any input on why the following 2 subs would work in 2002 and not 97

Thanks in advanc

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean


ActiveSheet.Unprotect ("Password"

Worksheets("Focus List").Range("A2:A125").Sort
Key1:=Worksheets("Focus List").Range("A2"), Order1:=xlDescendin

Worksheets("Focus List").Range("B2:B125").Sort
Key1:=Worksheets("Focus List").Range("B2"), Order1:=xlDescendin

Worksheets("Focus List").Range("C2:C125").Sort
Key1:=Worksheets("Focus List").Range("C2"), Order1:=xlDescendin

Worksheets("Focus List").Range("D2:D125").Sort
Key1:=Worksheets("Focus List").Range("D2"), Order1:=xlDescendin

Worksheets("Focus List").Range("E2:E125").Sort
Key1:=Worksheets("Focus List").Range("E2"), Order1:=xlDescendin

Worksheets("Focus List").Range("F2:F125").Sort
Key1:=Worksheets("Focus List").Range("F2"), Order1:=xlDescendin

Worksheets("Focus List").Range("G2:G125").Sort
Key1:=Worksheets("Focus List").Range("G2"), Order1:=xlDescendin

Worksheets("Focus List").Range("H2:H125").Sort
Key1:=Worksheets("Focus List").Range("H2"), Order1:=xlDescendin

Worksheets("Focus List").Range("I2:I125").Sort
Key1:=Worksheets("Focus List").Range("I2"), Order1:=xlDescendin

Worksheets("Focus List").Range("J2:J125").Sort
Key1:=Worksheets("Focus List").Range("J2"), Order1:=xlDescendin

ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=Tru
End Su

second su

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean

Worksheets("Sales Consultants").Range("A3:F125").Sort
Key1:=Worksheets("Sales Consultants").Range("A3"


End Su

You should be developing in the lowest version which you want to maintain
compatible.
- or - force them to upgrade.

Not sure about the sorts, but .Protect has newer parameters in 2002. Try
just .Protect without the parameters.

--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Alex Ray" wrote in message
...
Any input on why the following 2 subs would work in 2002 and not 97.

Thanks in advance

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


ActiveSheet.Unprotect ("Password")

Worksheets("Focus List").Range("A2:A125").Sort _
Key1:=Worksheets("Focus List").Range("A2"),
Order1:=xlDescending

Worksheets("Focus List").Range("B2:B125").Sort _
Key1:=Worksheets("Focus List").Range("B2"),
Order1:=xlDescending

Worksheets("Focus List").Range("C2:C125").Sort _
Key1:=Worksheets("Focus List").Range("C2"),
Order1:=xlDescending

Worksheets("Focus List").Range("D2:D125").Sort _
Key1:=Worksheets("Focus List").Range("D2"),
Order1:=xlDescending

Worksheets("Focus List").Range("E2:E125").Sort _
Key1:=Worksheets("Focus List").Range("E2"),
Order1:=xlDescending

Worksheets("Focus List").Range("F2:F125").Sort _
Key1:=Worksheets("Focus List").Range("F2"),
Order1:=xlDescending

Worksheets("Focus List").Range("G2:G125").Sort _
Key1:=Worksheets("Focus List").Range("G2"),
Order1:=xlDescending

Worksheets("Focus List").Range("H2:H125").Sort _
Key1:=Worksheets("Focus List").Range("H2"),
Order1:=xlDescending

Worksheets("Focus List").Range("I2:I125").Sort _
Key1:=Worksheets("Focus List").Range("I2"),
Order1:=xlDescending

Worksheets("Focus List").Range("J2:J125").Sort _
Key1:=Worksheets("Focus List").Range("J2"),
Order1:=xlDescending

ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

second sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets("Sales Consultants").Range("A3:F125").Sort _
Key1:=Worksheets("Sales Consultants").Range("A3")


End Sub

Hi Alex

Try to Change the takefocusonclick property to false of the button
This is a bug in Excel 97


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Alex Ray" wrote in message ...
Any input on why the following 2 subs would work in 2002 and not 97.

Thanks in advance

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)


ActiveSheet.Unprotect ("Password")

Worksheets("Focus List").Range("A2:A125").Sort _
Key1:=Worksheets("Focus List").Range("A2"), Order1:=xlDescending

Worksheets("Focus List").Range("B2:B125").Sort _
Key1:=Worksheets("Focus List").Range("B2"), Order1:=xlDescending

Worksheets("Focus List").Range("C2:C125").Sort _
Key1:=Worksheets("Focus List").Range("C2"), Order1:=xlDescending

Worksheets("Focus List").Range("D2:D125").Sort _
Key1:=Worksheets("Focus List").Range("D2"), Order1:=xlDescending

Worksheets("Focus List").Range("E2:E125").Sort _
Key1:=Worksheets("Focus List").Range("E2"), Order1:=xlDescending

Worksheets("Focus List").Range("F2:F125").Sort _
Key1:=Worksheets("Focus List").Range("F2"), Order1:=xlDescending

Worksheets("Focus List").Range("G2:G125").Sort _
Key1:=Worksheets("Focus List").Range("G2"), Order1:=xlDescending

Worksheets("Focus List").Range("H2:H125").Sort _
Key1:=Worksheets("Focus List").Range("H2"), Order1:=xlDescending

Worksheets("Focus List").Range("I2:I125").Sort _
Key1:=Worksheets("Focus List").Range("I2"), Order1:=xlDescending

Worksheets("Focus List").Range("J2:J125").Sort _
Key1:=Worksheets("Focus List").Range("J2"), Order1:=xlDescending

ActiveSheet.Protect Scenarios:=True, UserInterfaceOnly:=True
End Sub

second sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Worksheets("Sales Consultants").Range("A3:F125").Sort _
Key1:=Worksheets("Sales Consultants").Range("A3")


End Sub