Excel Error Message upon opening of Excel file

Hi

I have created a macro to populate the Premiership table with a variety of statistics. However, after running the macro, whenever I open the excel file, I get the following Error Message:

Error1.PNG
Error2.PNG

Does anybody know what this means and how I can fix it?

Thank you

It means your macro does something wrong when applying a sort. Usually it's that you forgot to clear the existing sortfields before adding new ones, but it would be easier to be sure if we could actually see the code...

Originally Posted by rorya

It means your macro does something wrong when applying a sort. Usually it's that you forgot to clear the existing sortfields before adding new ones, but it would be easier to be sure if we could actually see the code...

Ah ok, I'm only new to VBA, so I'm just learning as I go along. The code is written to sort the teams on the basis of points, and if the points are equal then goal difference, and if both are equal then it sorts by goals for. This is the part of the code with the sort:

For Each cell In team
cell.Activate
If ActiveCell.Offset(0, 8) <> ActiveCell.Offset(1, 8) Then
With ActiveSheet.Sort
     .SortFields.Add Key:=Range("J1"), Order:=xlDescending
     .SetRange Range("B1:CA21")
     .Header = xlYes
     .Apply
End With

ElseIf ActiveCell.Offset(0, 8) = ActiveCell.Offset(1, 8) Then
With ActiveSheet.Sort
     .SortFields.Add Key:=Range("I1"), Order:=xlDescending
     .SetRange Range("B1:CA21")
     .Header = xlYes
     .Apply
End With

ElseIf (ActiveCell.Offset(0, 8) = ActiveCell.Offset(1, 8)) And ActiveCell.Offset(0, 7) = ActiveCell.Offset(1, 7) Then
With ActiveSheet.Sort
     .SortFields.Add Key:=Range("G1"), Order:=xlDescending
     .SetRange Range("B1:CA21")
     .Header = xlYes
     .Apply
End With

End If
Next cell

Yep, you need to add:

.Sortfields.Clear

before each of the three .Sortfields.Add... lines.

@rhorgan
Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks