Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D1:Z5000]) Is Nothing Then
If Target.Value = "X" Then
Call macro1
End If
End If
End Sub