MsgBox Pops Up Multiple times if conditions are met

[chason323]

Hey everyone,
I am having some issues with a message box popping up 3 times for each scenario in the code below. I tried using Boolean values as explained in similar posts, but that just made the problem worse.
Basically, there are two cells in question. I'd like for one message ("A") to pop up if the first cell reads "Expanded" and the other does not. And another, different message ("B") to pop up in the opposite scenario. Lastly, a third message will pop up in the case where both cells read "Expanded"

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim topcoattxt As String
   Dim primertxt As String
   
topcoattxt = ActiveSheet.Range("B10").Text
primertxt = ActiveSheet.Range("B11").Text


If topcoattxt = "Expanded" And primertxt <> "Expanded" Then
MsgBox ("A")
End If
If primertxt = "Expanded" And topcoattxt <> "Expanded" Then
MsgBox ("B")
End If
If topcoattxt = "Expanded" And primertxt = "Expanded" Then
MsgBox ("These C")
End If
End Sub

Thanks

 

[Joe4]

Welcome to the Board!

The way you have written this code, it will run any time ANY cell on the entire worksheet is manually updated.
Is that what you really want? Or do you only want it to run when certain cells are updated?

 

[chason323]

well I'm locking the entire sheet, except or button that opens an Input box with 3 inputs. These user inputs are placed in cells B4,B5 and B6, and are used in calculations, multiple cells may or may not change every time the user inputs new values. So this was unintended, but still functions correctly. Unless there are adverse implications i am not aware of.

 

[Joe4]

These user inputs are placed in cells B4,B5 and B6

How is this done? By VBA code?
I believe updating each of those 3 cells is calling your code to run 3 times.

If it is VBA code that is placing the values in V4, B5, and B6, it might be better to do away with the code you have above, and simply add to your existing code to cehck the values of B10 and B11 after updating cells B4, B5, and B6.

 

[chason323]

Ah-ha! That did it. Thanks for your help.

How is this done? By VBA code?
I believe updating each of those 3 cells is calling your code to run 3 times.

If it is VBA code that is placing the values in V4, B5, and B6, it might be better to do away with the code you have above, and simply add to your existing code to cehck the values of B10 and B11 after updating cells B4, B5, and B6.

 

[Joe4]

You are welcome.