Or you can use the example in the VBA help files:

Sub SortRange()
Worksheets("Sheet1").Range("E1").Sort _
Key1:=Worksheets("Sheet1").Columns("E"), _
Header:=xlGuess
End Sub


"bijan" wrote:

Hi
how i can write a macro to sort colume E sort from Ato z