Macros works in Excel 02 but not 97

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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.
 
Hi Alex

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