Repairs to XLSB workbook

[Billdub417]

Hello,

Glad of any advice..
I have a workbook with quite a lot of code in....

Sometime when I open it, it is randomly coming up as read only and the below repair...

Any thoughts on why this might be happening and how to stop it going forward?

thanks,

 

[Fluff]

Sounds like you have code that sorts the 3rd sheet in the workbook & that you are not deleting existing sortfields before adding the new ones.

 

[Billdub417]

Sounds like you have code that sorts the 3rd sheet in the workbook & that you are not deleting existing sortfields before adding the new ones.

When you say the 3rd sheet - does this include hidden sheets?

 

[Fluff]

Yes it does.

 

[Billdub417]

Yes it does.

The only thing i can see is a macro that affects this sheet as below:

Would this be causing it? If so, what would needs adding to delete sortfield?

Sub Update()
With Sheets("sh3")
With .Sort
        .SortFields.Add Key:=Range("A1"), Order:=xlAscending
         .SetRange Sheet1.Range("A1:C1000")
         .Header = xlYes
         .Apply
        End With
End With

End Sub

 

[Fluff]

Yup, that's the culprit, add this line as shown

With .Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A1"), Order:=xlAscending

 

[Billdub417]

Yup, that's the culprit, add this line as shown

With .Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A1"), Order:=xlAscending

Perfecto! Thanks so much, you wouldn't realise how annoying that has been !!! :D

 

[Fluff]

You're welcome & thanks for the feedback.