Como evitar que se repita MSG
En la siguiente Macro se repite el mensaje varias veces.
Me pueden, ¿por favor ayudar?
Private Sub Worksheet_Change(ByVal Target As Range)
a = Worksheets("SHGM").Range("L" & Rows.Count).End(xlUp).Row
If Not Application.Intersect(Range("L9:L" & a), Target) Is Nothing Then
Msg = MsgBox("Angelita, Esta factura contiene Mano de obra?", vbYesNo, "Atención")
If Msg = 6 Then Selection.ClearContents '<>
End If
MsgBox "Favor de verificar el total de la factura"
End Sub
