After I run this sort below, I appear to be getting a corrupt cell on a different tab. The other tab copies a few cells from this Risk tab, but not near the area that is getting overlaid with a blank cell. Does anyone see a obvious problem with my sort below? It seems to work fine, except for the 1 corrupt cell showing up on the other tab. When I delete this sort, the corruption stops. One more note, it only happens when I open/close the file twice, never while switching tabs or just closing the file once???

Private Sub Worksheet_Activate()

Application.ScreenUpdating = False

ActiveWorkbook.Worksheets("Risks").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Risks").Sort.SortFields.Add Key:=Range("E2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Risks").Sort.SortFields.Add Key:=Range("D2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Risks").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Risks").Sort
.SetRange Range("A1:K62")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Application.ScreenUpdating = True

End Sub