Sort capital letters before lower case?

@Tinwelende - you can tie it into an event procedure like the Worksheet_Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
Call SORTIN
End Sub

in the worksheet module