msgbox truble

[poorocco]

The first code asociate a Sheet have a problem, is not posible close the msgbox.

Sub Worksheet_Change(ByVal Target As Range)
Target.ClearContents
MsgBox "You just changed " & Target.Address
End Sub


Thank you

 

[Jonmo1]

Welcome to the board....

It's like a circular reference...

You're using the Worksheet_Change Event to make a CHANGE to the sheet, therefor triggering the change event again, over and over...

Disable Events...

Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.ClearContents
MsgBox "You just changed " & Target.Address
Application.EnableEvents = True
End Sub

hope that helps..

 

[Andrew Poulsom]

Welcome to the Board.

You need to disable events before clearing contents, otherwise the event will continually fire:

Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.ClearContents
    MsgBox "You just changed " & Target.Address
    Application.EnableEvents = True
End Sub

 

[poorocco]

Hello Jonmo1, it`s ok, thank you very much