Hi Bijan,
In order to sort your list every time you open the workbook, write your code
as follows:
Private Sub Workbook_Open()
Worksheets("Sheet1").Range("E1").Sort _
Key1:=Worksheets("Sheet1").Columns("E"), _
Header:=xlGuess
End Sub
In VB help section, this would be listed under "Open Event".
Hope this helps
cheers,
Tendresse