The line Application.EnableEvents=True is allowing change events to occur.

The Worksheet_Change Module you show is activated when the worksheet changes.

I am guessing that Application.EnableEvents=False is used somewhere else is
the code to turn off events. So you likely need the =True statement
somewhere to trun events back on.

Try moving the Application.EnableEvents=True statement to after the Loop line.
--
If this helps, please remember to click yes.


"Rick" wrote:

When executing the following code:

Do
If MyCellMe.Value = A1NmeMe Then
Sheets(TagNmeMe).Select
Range("B4").Select
If MyCellMe.Value = "" Then
ActiveCell.EntireRow.Copy
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.EnableEvents = True
Range("A4").Select
If MyCellMe.Value = "" Then
Set MyCellMe = MyCellMe.Offset(1, 0)
If MyCellMe.Address = EndCelMe.Address Then
MsgBox "Needs to insert new rows"
Exit Do
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Else
Set MyCellMe = MyCellMe.Offset(1, 0)
End If
Loop

This code gets executed, which is on a seperate workseet:

Private Sub WorkSheet_Change(ByVal Target As Range)
vArr = Array("AMXD", "BAMB", "BAVR", "BAVS", "CVG", "CITI", "DISC", "WAMU")

' commeted out code
'
'
'
'
'
ErTherapy:
Application.EnableEvents = True
End Sub