open de VBA editor .
In de linkse kolom selecteer je (dubbelklik) this workbook.
In het rechter vak zie je bovenaan 2 kadertjes,
zorg ervoor dat in het linkse this workbook staat en in het rechtse kies je dan voor this workbook change.
Je krijgt nu in het grote witte vlak :
sub this workbook_change(.........)
   plak hier de code van de macro
end sub
Bij iedere inbreng zal de sortering gebeuren.
Dit is wel een vertragende werking.

Andere mogelijkheid is de macro te plaatsen onder
sub this workbook_beforesave(.....)
Firmin

Droedel,
volgende regels verwijderen :

Sub rangschikking()
'
rangschikking macro
de macro is opgenomen op 23/02/2009 door pol
'
sneltoets = Ctrl+s
'
End sub 1x verwijderen.

De code moer er dan als volgt uitzien

Private Sub Workbook_ScheetChange(     )
Range("M6:N16").Select
Selection.Sort......................
       Order..............
       Data...............
Range("M20").Select
End Sub

Firmin

Droedel,
het gedeelte tussen aanhalingstekens ()
op de eerste regel  Private Sub Workbook_SheetChange(...................) staat er niet bij.

Firmin

Firmin

het werkt
dank u wel