Upper Case not including specific Sheet

I tried to exclude the entire Sheet5 to not auto upper case.

Under "If Intersect(Target, Range("Sheet5")) Is Nothing Then" I typed the Sheet5 but it did not work. It's still doing the auto upper case.

Private Sub Workbook_SheetChange(ByVal _
Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("Sheet5")) Is Nothing Then
Target = UCase$(Target)
Else
Target = StrConv(Target, vbProperCase)
End If
Application.EnableEvents = True
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveCell.FormatConditions.Delete
End Sub

Thanks.