How do I get this Loop to stop

[philqw78]

I have written this to clear cells coloured 56 in the target row from columns A to L when a Message box is OK'd. But how do I stop it from carrying on and on?

Dim Rw As String
Rw = Target.Row
Dim Ar As String
Ar = "A" & Rw & ":" & "L" & Rw
Dim Rg As Range
Set Rg = Range(Ar)
 
For Each cl In Rg
 
        With cl
            If .Offset(0, 0).Interior.ColorIndex = 56 Then
                .ClearContents
            End If
        End With
 
    Next cl
 
End Sub

Thanks.

[philqw78]

Sorry again. Figured it out. I am not having to escape the loop. The code keeps going round because the worksheet change events are fired.

Application.EnableEvents=False
'then later 
....True 

cures it