Sub trier()
For Each f In ActiveWorkbook.Sheets
s = f.Name
If s <> "1" And s <> "2" And s <> "3" Then
f.Range(f.Range("A5"), f.Range("A5").End(xlDown)).Sort Key1:=f.Range("A5"), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
Next
End Sub