This is what I have. Some cells in my range have text and some have zerros. I need the cells with text to be on top after the sort.
Worksheets("1800").Range("A7:O34").Sort _
Key1:=Worksheets("1800").Range("A7"), _
DataOption1:=(xlSortTextAsNumbers)
Hope this helps.
Phil