I am not sure where you got those step.

Open Excel

Open the workbook and go to the worksheet where you want to sort.

do Alt+F11
in the menu do insert = Module

in the resulting module, paste in the code


Public Function IsStrikeThrough(rng As Range)
Application.Volatile
IsStrikeThrough = rng.Font.Strikethrough
End Function

do Alt+F11 to get back to Excel

go to the dummy column and put in

=IsStrikeThrough(A2)

in row 2 for example then drag fill down.

Sort on this column as the first key. use other columns for second and
third key if appropriate.

--
Regards,
Tom Ogilvy



"William Poh Ben" wrote in
message ...

I tried to use the code below to sort the range of cells in column A so
that the strikethrough characters can be sorted to the top.

I used these steps but it failed to run. Appreciate if someone can
help. Thanks a lot.
1) Open Excel.
2) Right click on the Sheet1 name tab.
3) Select View Code.
4) Copy the code and paste it over the top of the Sheet1 code window.
5) Press Alt+Q to return to Excels normal view.
6) Push Alt+F8, but there is no macro name I can select select to Run.




Public Function IsStrikeThrough(rng As Range)
Application.Volatile
IsStrikeThrough = rng.Font.Strikethrough
End Function


Use this in an adjacent column and use that as the first sort key.


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/