Specific Cells to force input to uppercase in Excel

[astrid22]

Hi, I am trying to make some cells in Excels to force convert input strings to uppercase. I have this VBA code but whenever I am pressing on delete, the macro crashes. Please help!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Application.Intersect(Target, Range("A1:B10")) _
Is Nothing) Then
With Target
If Not .HasFormula Then
Application.EnableEvents = False
.Value = UCase(.Value)
Application.EnableEvents = True
End If
End With
End If
End Sub

 

[Fluff]

Hi & welcome to the board.
Try

If Not .HasFormula And .Value <> "" Then

 

[astrid22]

Hi, I decided to just disable the delete key instead. But let me try that, too