How do I make a section sort automatically?

G

Gary''s Student

If the section is A1 thru C10 (no headers), then enter the following in
worksheet code:

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Range("A1:C10"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
Range("A1:C10").Sort Key1:=Range("A1")
Application.EnableEvents = True
End Sub

This will cause automatic re-sort (using column A as the key) after the data
has been updated.
 
Top