alphabetizing rows automatically

B

Bob Umlas

Right/click the sheet tab, select View Code, enter this:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Columns(1).Sort key1:=Range("A1"), order1:=xlAscending,
header:=xlGuess
End If
End Sub
 
N

neopolitan

Select all cells containing data (for example: A2-G25).
Click on Data>Sort and then specify to "Sort On" Col A and "Ascending".
 
R

Ron Coderre

I think you need to give us some more details about your data and what you
want sorted.


***********
Regards,
Ron

XL2002, WinXP-Pro
 
Top