Sort Problem: Unreadable Content

[Virtual Blue]

I am getting this message come up often when I open my workbook:"Excel found unreadable content in 'mybook.xlsm'. Do you want to recover the contents of this workbook? If you trust the source of this workbook, click Yes."I click Yes and get another dialog box with the following information:"Excel was able to open the file by repairing or removing the unreadable content.Removed Records: Sorting from /xl/worksheets/sheet3.xml part"It tends to vary between 3 different sheets although once the message came up relating to 2 sheets.Can anyone tell me why this would be coming up and what I should be looking for to prevent it from happening?ThanksVB

 

[ymk080690]

PM
dear RoryA

i added it but unfortunately the problem isn't solved.

every time i use that code, next time i open the file the error appear.

any other clue?

thanks any way.

 

[bv182]

PM
dear RoryA

i added it but unfortunately the problem isn't solved.

every time i use that code, next time i open the file the error appear.

any other clue?

thanks any way.

Hi ymk080690,

I have been facing similar issue for a while and finally got it working using the solutions provided here. I added both '.sortfields.clear' and worksheet name for the range in Key parameter and it worked. When I added only one of them it didn't work.

Hope this helps.

Thanks

 

[ymk080690]

Hi ymk080690,

I have been facing similar issue for a while and finally got it working using the solutions provided here. I added both '.sortfields.clear' and worksheet name for the range in Key parameter and it worked. When I added only one of them it didn't work.

Hope this helps.

Thanks

i am copying you my code
please have a look if i did every thing as instructed or not:

ActiveWorkbook.Worksheets("member").AutoFilter.Sort.SortFields.Add Key:= _
        ActiveWorkbook.Worksheets("member").Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
        With ActiveWorkbook.Worksheets("member").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("member").Sort.SortFields.Clear
Re:
 ActiveWorkbook.Worksheets("DataBase").AutoFilter.Sort.SortFields.Add Key:= _
        ActiveWorkbook.Worksheets("DataBase").Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
        With ActiveWorkbook.Worksheets("DataBase").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("DataBase").Sort.SortFields.Clear
MainS.Activate
    ActiveWorkbook.Worksheets("main page").AutoFilter.Sort.SortFields.Add Key:= _
        ActiveWorkbook.Worksheets("main page").Range("A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
        With ActiveWorkbook.Worksheets("main page").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWorkbook.Worksheets("main page").Sort.SortFields.Clear

thanks