If a cell contains certain text

[trevolly]

Hi all

I have a worksheet and I'd like to have a message box appear if a certain value (in this case text "Block 38S") is in the cell C12, which will be selected from a drop down menu within the cell C12.

The vba I have written for this works but I've discovered that if the cell C12 contains the value "Block 38S" then every time you select any other drop down list on the worksheet (in any other cell) then the message box pops up again.

Is there any way the vba can be written so the message box only appears for the cell C12?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Worksheets("Form").Range("C16").Value = "Block 38S" Then
MsgBox ("Please check if there any works planned on the Northern Runway")
Else
Exit Sub

Thank you all

End If
End Sub

 

[Joe4]

If you only want it to run when the value in C12 is updated, then change it like this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Worksheets("Form").Range("C16"), Target) Is Nothing Then Exit Sub

If Worksheets("Form").Range("C16").Value = "Block 38S" Then
    MsgBox ("Please check if there any works planned on the Northern Runway")
End If

End Sub

 

[trevolly]

@Joe4 That's great - thank you Joe4.

 

[Joe4]

You are welcome.
Glad I was able to help!