VBA code just looping despite exit subs

This is a classic Worksheet_Change trap, and your Exit Subs are not the problem 😊

it’s looping becourse Worksheet_Change fires every time any cell on the sheet changes.

Your code:

• User changes B3 ➜ event fires
• Your code writes to I3 ➜ event fires again
• That second trigger writes to I3 again, appending text
• Repeat until Excel crashes

So even though you Exit Sub, the act of writing to I3 retriggers the event.

Two required fixes

Only respond when B3 changes

Disable events while writing to I3

Corrected, safe version of your code:

Private Sub Worksheet_Change(ByVal Target As Range)

    ' Only run when B3 changes
    If Target.Address <> "$B$3" Then Exit Sub

    Application.EnableEvents = False

    If Target.Value = "NONE" Then
        Range("I3").Value = "Selection is " & Target.Value & ". You have no Melee weapon."
    ElseIf Target.Value = "" Then
        Range("I3").ClearContents
    Else
        Range("I3").Value = "Selection is " & Target.Value & ". This is a Melee Weapon."
    End If

    Application.EnableEvents = True

End Sub

Prevents changes to I3 from retriggering logic.

Stops Excel from firing Worksheet_Change while your code edits cells.

My answers are voluntary and without guarantee!

Hope this will help you.

Was the answer useful? Mark as best response and like it!

This will help all forum participants.