Sorting an Addin Worksheet

[Guest]

Anyone -

Can you tell me the code an Addin would use to sort cells on a worksheet in
the Addin?

I've tried this, but it does not always work:

Workbooks("MyAddInName.xla").Activate
Sheets("Sheet1").Activate
Columns("A:C").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom


Thank you for any assistance.

MSweetG222

 

[Dave Peterson]

Addins are hidden. And it's not possible to select hidden sheets (or ranges on
sheets that aren't selected).

But you can do it without the .activate and .selects

with Workbooks("MyAddInName.xla").worksheets("Sheet1").range("A:C")
.cells.Sort Key1:=.columns(1), Order1:=xlAscending, _
Key2:=.columns(2), Order2:=xlAscending, _
Key3:=.columns(3), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
end with

 

[Guest]

Thank you so much.

--
Thx
MSweetG222

Addins are hidden. And it's not possible to select hidden sheets (or ranges on
sheets that aren't selected).

But you can do it without the .activate and .selects

with Workbooks("MyAddInName.xla").worksheets("Sheet1").range("A:C")
.cells.Sort Key1:=.columns(1), Order1:=xlAscending, _
Key2:=.columns(2), Order2:=xlAscending, _
Key3:=.columns(3), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
end with

 

[Guest]

Dave - Sorry to bother you again...
I am getting a "Sort method of Range class failed" error.

 

[Dave Peterson]

Did you copy and paste the code or did you type it from scratch?

If you typed it, double check those dots--they're important.

Another thing to check--is the worksheet protected?

If you can't find it, post your code.

 

[Guest]

Thanks for pointing out the dots. Left out the dots on the column keys.
Works perfectly now. Thanks for saving my hair (I was pulling it out)!