xlascending

Hi All,

I have a problem with getting my code to sort ascending.
Here is the code i have used -

Private Sub CommandButton1_Click()
    Worksheets("Postcode Model").Range("A12:K1000").sort _
    Key1:=Worksheets("PostcodeModel").Columns("H"), Order1:=xlAscending
End Sub

If I delete the Order1:=xlAscending it does the sort but orders descending!
can anyone tell me what im doing wrong?

Thanks

Thanks Andy
Easy to overlook! now ive altered it it works

i see you are applying this to your postcode problem which i posted and you never acknowledged. sample i posted sorts without resorting to macro.