Run Time error 2147417848 (8010108)

[obiwann]

I have a computer in our office that is running excel 2016 on windows 10 pro that is giving me this error (Run Time error 2147417848 (8010108)) when loading a certain workbook. I have other computers with the same software with no issues. The person using this computer said this started occurring about 2 months ago after we had an upgrade on our windows server 2013r2.

Any Ideas?

Thanks

Private Sub Workbook_Open()
Sheets("Work Order Entry").Select
      ActiveSheet.Unprotect
'    Application.Goto Reference:="DATABASE"
   
        
     Rows("10:2303").Sort Key1:=Range("A11"), Order1:=xlDescending, Key2:= _
        Range("D11"), Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
        DataOption2:=xlSortNormal
        Range("A11").Select
 ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            Range("A12").Select
   Application.DisplayFullScreen = True
ActiveSheet.OLEObjects("combobox1").ListFillRange = Sheets("work Order entry").Range("T1:T5").Address(External:=True)
ActiveSheet.OLEObjects("combobox2").ListFillRange = Sheets("work Order entry").Range("V1:V11").Address(External:=True)

End Sub