Automatic Sorting - Alphabetically

[sean]

I was wondering if it is possible to automatically sort a column alphabetically.

Like if I have a list:
ace
bat
cat

and then if I add the word "abs" then the word will automatically go above the word ace.

Is this possible? Thank you in advance,
Sean
This message was edited by sean on 2002-04-08 06:34

 

[sean]

Thank you kindly for all of your help Derek, I appreciate it.

I hope all is well in Australia.

Sean

 

[rafael22]

You can use VBA. Try the following code in the code for your worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.EntireColumn.Sort Key1:=Target, Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

I tried using this code but it moved my data (List of names) up to the first row. If i have my data starting from B10 up to B45, I want my data to remain at B10 downward. I also want to expand selection to the next column.


thanks,