Sort option doesn't work

Question

Hello, 

From some time I can't do any sorting by Sort and Filter button. I recorded macro for this operation:

Sub sort()

    ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Add2 Key:=Range("D1"), _

        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("Arkusz1").Sort.SortFields.Clear

End Sub 

Sorting in pivot tables works as it should.

Could you help ?

Answer 1

Hi John, 

Restarting didn't fix the problem. I tried Repair Office from Control Panel but it didn't help. Next installed Microdoft Support and Recovery Assistant but it didn't help as well. 

Regards,

ArtSto

Answer 2

Hi ArSto,

Please try to perform an Online repair to Office.

To do this, please see: https://support.microsoft.com/en-us/office/repair-an-office-application-7821d4b6-7c1d-4205-aa0e-a6b40c5bb88b

Please let me know how it goes.

Regards,

John

Answer 3

Hello John, 

It's not first time, unfortunately. Below screenshot with random data and steps which I do to make sorting. I try to sort from A to Z, but nothing happen. At the end of sheet have info that sort is in progress.

Regards,

ArSto

Answer 4

Hi ArSto,

I am John, an Independent Advisor and a Microsoft user like you. I'm here to work with you on this issue.

May I know if this is the first time it happened to your file? Have you tried working on a new workbook? Does that make any difference?

You can perhaps share a screenshot of your worksheet (make sure to cover any private/sensitive information before uploading it) that shows the data what are you trying to sort. This will help us to understand your issue better, and then provide you with a solution.

Awaiting for your response.

Regards,

John