Como escribir bien este código de VBA

Tengo el siguiente código.

Private Sub Worksheet_Calculate()

If Range ("AW1:AY1") Change Then

Call msg

End Sub

Pero como no se mucho de VBA no funciona, básicamente lo que quiero hace es que si hay un cambio en el rango ("AW1:AY1") quiero que se ejecute la macro msg

1 respuesta

Respuesta

[Hola 

pon en el evento change

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("AW1:AY1")) Is Nothing Then
        Call msg
    End If
End Sub

valora la respuesta para finalizar 

Muchas gracias. Pero olvidé decir que este rango es calculado, lo intente cambiar por "calculate" pero me arroja error ene esta línea.

If Target.Count > 1 Then

¿Puedes explicar que cálculos realizas?

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas