Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Disable the events and then reenable them at the end of the procedure

Private Sub Worksheet_Change(ByVal Target As Range)     Application.EnableEvents = False     Range("A1").Value = Target.Value     Application.EnableEvents = True End Sub