Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range) xxx = Target.Address yyy = Target.Value Application.EnableEvents = False Range("e7:e9").Clear Range(xxx) = yyy Application.EnableEvents = True End Sub