Se eu entendi sua necessidade, este codigo atende.
Abra a planilha
Alt + F11
Cole este codigo.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim W As Worksheet
Set W = Sheets("PLANILHA1")
If Target.Column = 2 Then
If Target.Cells.Value = "PRODUTO A" _
Or Target.Cells.Value = "PRODUTO B" Then
MsgBox "DIGITE A SUA MENSAGEM", vbOKOnly, "DIGITE UM TITULO"
End If
End If
End Sub
Postado : 04/08/2021 8:32 pm