Private Sub Worksheet_Change(ByVal Target As Range)

[brans1982]

Hi,

Not sure how to do this.

i just want to prompt the user with...

MsgBox"Weight Descrpency.",vbexclamation,"""

...if the value in Column A does not match the corresponding value in Column B. I can't use Data Validation as I just want to tell the user the values are different, they don't have to be the same.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Select Case Target.Column

Case 1

If Target.Value <> ................ Then

MsgBox"Weight Descrpency.",vbexclamation,"""

End If

Application.EnableEvents = True

End Sub

Thanks.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    If Target.Value <> Target.Offset(, 1).Value Then MsgBox "Discrepancy"
End If
End Sub

 

[brans1982]

Hi Peter,

Thanks for your help. It worked perfectly.

Conor.