Macro Code for Auto Sort

KTrask8 

Sorting a range when data are being entered is very confusing: a row might disappear from sight when you enter a date.

So I'd sort the data when the workbook is opened or when the sheet with the data is activated.

For example:

• Press Alt+F11 to activate the Visual Basic Editor.
• Double-click ThisWorkbook under Microsoft Excel Objects
• Copy the following code into the ThisWorkbook module.
• Switch back to Excel.
• Save the workbook as a macro-enabled workbook (*.xlsm).

Private Sub Workbook_Open()
    ' Change the worksheet name as needed
    With Worksheets("Complaint Log")
        .Range("D3").CurrentRegion.Sort Key1:=.Range("D3"), Order1:=xlDescending, Header:=xlNo
    End With
End Sub