Runtime error '13' on Upper Case Macro

The following macro changes any lower case text entered in a cell to upper case; however, I'm getting a runtime error '13' on the .Value line when pressing the Delete key to remove cell contents. How do I resolve this error?

Option Explicit
------------------
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not .HasFormula Then
.Value = UCase(.Value)
End If
End With
End Sub

Still getting Run-time '13' error: Type mismatch.
Happens when a cell is cleared (.ClearContents).
If Not .Has...... line highlighted yellow.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If Not .HasFormula And .Value <> "" Then
        .Value = UCase(.Value)
    End If
End With
End Sub

This needs to work when either single or multiple cells are cleared.

Always better to handle multiple change

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Application.EnableEvents = False
    For Each r In Target
        If Not r.HasFormula And r.Value <> "" Then
            r.Value = UCase(r.Value)
        End If
    Next
    Application.EnableEvents = True
End Sub

Jindon, Could you elaborate on this? What improvement results if I use your code rather than mine? I'm always open to improvement and want to learn something from your input. r/Phil

e.g

Copy multiple cells and paste to anywhere or select multiple cells and enter any string then enter with Ctrl + Enter.

It will convert all the cells that are changed.

Your code will ignore the change made in multiple cells at a time.

Please excuse my ignorance on this, but what is getting "converted?"

Convert small cap characters to upper case?

r.Value = UCase(r.Value)