Change-event macro ...........

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
Range("A:A").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("A65000").Select
Selection.End(xlUp).Offset(1, 0).Select

End If
End Sub

hth
Vaya con Dios,
Chuck, CABGx3




"rijisaac" wrote:

How do I make a customer list that alphabetizes itself with each new entry?
I need to have individual sheets for each customer ( the main issue is that
visit dates must be documented, whether on indivual sheets of on the same as
for all customers.
thank you