Sorts all but one record

[erutherford]

Should be pretty simple stuff, but I have run out of possibilities.

The code sorts data in Column I, first in an ascending order, then allows me to print the results, then resorts in descending order by Column A, putting it back to its original order.
Here is the code
<code>
Private Sub CommandButton3_Click() 'Print by Divison
Range("A3:I52").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlYes
Range("A3:I52").PrintPreview
Range("A3:I52").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub
</code>

The problem: its sorts everything but the first record (A3).

Column A are numbers, all have the same properties
Column I are text, all have the same properties

As you can see column "I" is not a 1 in the code.

thoughts?

 

[mikerickson]

Your code says that row 3 is a header row and not to be sorted. If you want the first row to be sorted:

Range("A3:I52").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=[COLOR="#FF0000"]xlNo[/COLOR]

 

[Joe4]

It is because of your last argument:

[COLOR=#333333][FONT=monospace]Header:=xlYes[/FONT][/COLOR]

That tells Excel that the first row in the range you elected to sort (A3:I52) has a header/title row (so exclude that from the sort).

Change that to this and it will work the way you want:

[COLOR=#333333][FONT=monospace]Header:=xlNo[/FONT][/COLOR]

 

[erutherford]

Thanks to you both! I also found it searching, just had to choose the right search words!