Popup based on cell value

[themule]

Hi,
I am trying to create a popup based on certain cells changing their value from the default value. Say I have 10 cells from A1 and the def value is Select an Option (drop list). I want to have a MsgBox popping up if any of the cells from A1 through A10 is changed from "Select an Option" to anything else.
What I did is the following only for the first cell:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").value <> "Select an Option" Then
MsgBox "These services are rendered in design phase only. Be sure to check the corresponding services in the Construction Tab and select as applicable", vbExclamation, "Additional Services"
End If
End Sub

 

[Momentman]

Maybe like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value <> "Select an Option" Then
            MsgBox "These services are rendered in design phase only. Be sure to check the corresponding services in the Construction Tab and select as applicable", vbExclamation, "Additional Services"
        End If
    End If
End Sub

 

[themule]

Maybe like this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value <> "Select an Option" Then
            MsgBox "These services are rendered in design phase only.", vbExclamation, "Select"
        End If
    End If
End Sub

Thanks for replying, but no it's giving a runtime error Type Mismatch as soon as I click on Any of A1 to A10. I think there is another way to define a range of cells with referring to each cell independently.
Also I have a default value not Nothing.

Thanks!!

 

[Momentman]

What line is highlighted when it brings up the type-mismatch error?

In any case, I ran this slightly modified code and it works as ecpecyed, see if it works like you

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        If Target.Value <> "Select an Option" Then
            MsgBox "These services are rendered in design phase only. Be sure to check the corresponding services in the Construction Tab and select as applicable", vbExclamation, "Additional Services"
        End If
    End If
End Sub

 

[themule]

Thank you Momentman, this actually works!
The mismatch error was on the cell range itself, I guess with selection change, it did not like it.

Thank you very much!!