VBA Message Box Syntax Error

Question

Looking for advise on why I keep getting "Syntax Error" on code below?

I am trying to get pop up message when the cell = "PM_Protection" only.

Thanks for any help you can offer.

Private Sub WorkSheet_Change1 (ByVal Target As Range)

If Target.Column 2 And Target.Value = "PM_Protection" Then

MsgBox "Extended Warranty Options are not available to PM_Protection: " & Target, vbInformation, "QMC Administrator Message 8"

End If

End Sub

Answer 1

Hello

I am V. Arya, Independent Advisor, to work with you on this issue. Use below code

Private Sub WorkSheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Value = "PM_Protection" Then

MsgBox "Extended Warranty Options are not available to PM_Protection: " & Target, vbInformation, "QMC Administrator Message 8"

End If

End Sub

Answer 2

Hello

I am V. Arya, Independent Advisor, to work with you on this issue. Use below code

Private Sub WorkSheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Value = "PM_Protection" Then

MsgBox "Extended Warranty Options are not available to PM_Protection: " & Target, vbInformation, "QMC Administrator Message 8"

End If

End Sub

V. Arya, solved my problem and saved my day thank you.