Hi Gary,

I do thank you for your suggestion, but my weakness in VBA trapped me (I
created the button, pasted the code, saved the workbook, selected the A3:A110
to be sorted, but the error400 keeps coming up.
Can you pse advise, how to proceed further.

I wonder, is there any combination of worksheet functions to accomplish this
task?

Thx

"Gary L Brown" wrote:

Put this in your workbook and create a button that calls it.

'/======================================/
Sub MySort()
Selection.Sort _
Key1:=Range("F2"), Order1:=xlAscending, _
Key2:=Range("G2"), Order2:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
'/======================================/
HTH,
--
Gary Brown

If this post was helpful, please click the ''Yes'' button next to ''Was this
Post Helpfull to you?''.


"gmisi" wrote:

can somebody pse help me out?
how can I automate the sorting (in ascending or desc. order) columnA
(variable lenght) containing mixed multiple text and/or number values (even
blank ones) so, that in colF will be the sorted list of unique values and
colG will show how many times this value figures in the unsorted list

many thanks in advance