Active Content Disabled, shuts down excel when enabled

I was working on a new version of my pricing form.
Yesterday everything was fine, macros were doing what they were supposed to.
I know I deleted some that were no longer required, perhaps that messed something up.
I can't find anything wrong though, I am not well experienced in code.
Can someone proof this and see if it's good.
thanks

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
                Application.EnableEvents = False
                    On Error Resume Next
    Select Case LCase(Target.Worksheet.Name)
        Case "order", "order (2)", "order (3)", "order (4)"
            If Not Intersect(Target, Target.Worksheet.Range("J6")) Is Nothing Then
                Target.Worksheet.Range("H3:J3,L3:N3,M6:Q6").ClearContents
            End If
            If Not Intersect(Target, Target.Worksheet.Range("M6")) Is Nothing Then
                Target.Worksheet.Range("H3:J3,L3:N3").ClearContents
            End If
            If Not Intersect(Target, Target.Worksheet.Range("B14:B50")) Is Nothing Then
                Target.Worksheet.Range("C" & Target.Row & ":E" & Target.Row).ClearContents
            End If
        Case "order (5)"
            If Not Intersect(Target, Target.Worksheet.Range("J6")) Is Nothing Then
                Target.Worksheet.Range("H3:J3,L3:N3,M6:Q6").ClearContents
            End If
            If Not Intersect(Target, Target.Worksheet.Range("M6")) Is Nothing Then
                Target.Worksheet.Range("H3:J3,L3:N3").ClearContents
            End If
            If Not Intersect(Target, Target.Worksheet.Range("B14:B23")) Is Nothing Then
                Target.Worksheet.Range("C" & Target.Row & ":E" & Target.Row).ClearContents
            End If
           
            On Error GoTo 0
        Case Else
    End Select
                Application.EnableEvents = True
End Sub

Looks like that could be it. So far is working better
I can enable without excel shutting down.
Many thanks