Auto upper case does not include specific cell

Hello,
Can someone fix this code? Which does not include Sheet1 “A1”, Sheet2 “D10” and Sheet3 “F1”.

Thanks.

Private Sub Workbook_SheetChange(ByVal _
                                 Sh As Object, ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Intersect(Target, Range(Sheet1 "A1”,Sheet2 “D10”,Sheet3 “F1”)) 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