Miguel Briones

Private Sub Worksheet_Change(ByVal Tarject As Range) Dim cl As Range For Each cl In Tarject If cl.Value <> 0 Then ' ejecuta codigo ' call macro MsgBox "Celdas cambio " End If Next cl End Sub primero debes validar la hoja de trabajo no creas modulo...