Excel Crashing on a Particular VBA Statement, Need Help

[LuckyDPR]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Application.Intersect(Target, Range("HHPACC[Model]")) Is Nothing) Then Target.Value = UCase(VBA.Split(Target.Value, " ")(0))
End Sub

Above simple statement was working very fine a few days ago, but now at sudden whenever excel execute this statement excel crashes

 

[Fluff]

I'm surprised that ever worked as you have a permanent loop.
Try

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not (Application.Intersect(Target, Range("HHPACC[Model]")) Is Nothing) Then
      Application.EnableEvents = False
      Target.Value = UCase(VBA.Split(Target.Value, " ")(0))
      Application.EnableEvents = True
   End If
End Sub

 

[LuckyDPR]

I'm surprised that ever worked as you have a permanent loop.
Try

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not (Application.Intersect(Target, Range("HHPACC[Model]")) Is Nothing) Then
      Application.EnableEvents = False
      Target.Value = UCase(VBA.Split(Target.Value, " ")(0))
      Application.EnableEvents = True
   End If
End Sub

Thanks i have figured that, I am trial and error programmer, and had deleted those lines accidentally, or in simple saying ignorantly

 

[Fluff]

You're welcome & thanks for the feedback.