Data Validation & Messages

[Roger Govier]

Hi

Works fine for me.
Are you sure that what you are testing for in code is EXACTLY the same as the entry you have in your cell in the workbook?

Can you upload a copy of the workbook for us to have a look at?

[ibrahimaa]

Good morning
Please select “SAT Converted to SAR” and 1 to be the number of heads. You will see the message box; click OK, then highlight both of them (the # of heads and the option” and click delete. You will receive the error # 13. I appreciate your support. Thank you.

[Roger Govier]

Hi

I see the problem.
When hastily posting a quick example, I hadn't included the test to ensure you didn't have more than 1 cell selected.

If Target.Count > 1 Then Exit Sub

The amended code is

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim myrange As Range

    Set myrange = Range("B7:B14")
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, myrange) Is Nothing Then
        If Target.Value = "SAT Converted to SAR" Then
            Call MsgBox("You have selected SAT Converted to SAR", vbExclamation, "Warning")
        End If
        
    End If

End Sub