Specific worksheet upper case

Hello,
I have this code: see below.

this part here: If Intersect(Target, Range("F:F")) Is Nothing Then
I want to specify for Sheet3
How do I redo the code that Sheet3 F:F is no upper auto.

Thanks.

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