Upper Case excluding specific worksheet

[RJ1969]

Hi
I wanted to exclude worksheet 2 and worksheet 4.

Thanks.

Private Sub Workbook_SheetChange(ByVal _
Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("AF11,X18")) 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