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