Hi there,
You could use a worksheet change event, limited to changes in column A.
You would need to enter the code on each worksheet where you need the sorting to happen.
> Right-click on the sheet name/tab (ie; Team Samuel), select 'View Code', enter/paste the code below.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 5
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Range("A5:NJ" & lastrow).Sort key1:=Range("A5:A" & lastrow), _
order1:=xlAscending, Header:=xlNo
End If
End Sub
Bookmarks